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I. INTRODUCTION 



COMMENTS ON ASPL 



ASPL is a high level procedure oriented programming language 
designed for use in implementation of all standard software for the ALPHA 
computer. ASPL contains facilities for performing arithmetic, logical, 
byte, and bit operations on a variety of data structures. 

The ASPL design reflects the ALPHA architecture. Declaration 
facilities provide the programmer with the capability for use of all de- 
fined addressing modes. The assemble statement allows the user to emit all 
defined ALPHA machine codes. 

The ASPL compiler is highly modular in structure. New constructs 
can be defined and added to the syntax with relative ease. 

The reader should note that while ASPL is a high level language, many 
machine dependent functions are defined in the language. The user should be- 
come familiar with the ALPHA architecture and instruction set before analyzing 
the syntax. 



1. 1.1 



ASPL Syntax Notation 

A BNF (backus normal form) description of the ASPL language is given 
in the following text. It completely defines the syntax for the language and 
should be referred to if questions regarding syntax arise. 

1) The syntax is described through the use of metalinguistic 
symbols. These symbols have the following meanings: 



< > 



Left and right broken brackets are used to contain 
one or more characters representing a metalinguistic 
variable. The value of each metalinguistic variable 
will be given by a metalinguistic formula. 

The symbol ::= means "is defined as" and separates 
the metalinguistic variable on the left of the formula 
from its definition on the right. 

The symbol | means "or". This symbol separates 
multiple definitions of a metalinguistic variable. 



Example 



<Leftpart> ::= <A><B>|<C>|<Leftpart><D> 

The above metalinguistic formula is read as follows: 

Leftpart is defined as A followed by B, or C, or leftpart 
followed by D. 

2) Productions of the following form are assumed, but not explicitly 
displayed, for the oft-recurring list construct: 

<notion list> ::= <notion> | <notion list>,<notion> 



1.2.1 



To conveniently express the type -attribute of a syntactic entity 
the following notation is employed. 

The occurrence of the symbol T in a syntactic rule specifies that 
this symbol must be replaced consistently by any one of a set of English 
words. Below is a table that defines the replacing words for each of 
the symbols: T, T-, Tj, T 2 , Tj, T 4 



T : 

V 

T l : 



V 



integer, real, logical, byte, double, long 

integer, logical, byte 

integer, logical 

integer, real, logical, double, long 

integer, real, byte, double, long 

integer, real, long 



Two examples illustrate the replacement of T symbols: 



1) The syntactic rule 
<T- array id> 

corresponds to 

< integer array id> 
<logical array id> 
<byte array id> 



:= <identifier> 

<identifier> 
<identifier> 
<identifier> 



2) The notation 

<T rt variable> 




corresponds to 

<integer variable> 



<T- simpvar id>| 
<T 1 pointer id> 

<integer simpvar id> | 
<integer pointer id> 



<logical variable> 



<logical simpvar id>( 
<logical pointer id> 



<byte variable> 



:= <byte simpvar id> 
1.2.2 



II. PROGRAM COMPONENTS 



PROGRAM COMPONENTS 



Syntax — 

<program> 
<global head> 
<main body> 
<compound tail> 

<compound statement> 
<subprogram> 
Semantics -- 



<global head> <main body> • 

BEGIN <data group> <procedure group> 

<compound tail> 

<statement> END | 

<statement> ; <compoundj tail> 
:= BEGIN <compound tail> 
:= BEGIN <subdata groupxprocedure group>END 



An ASPL program is an ordered collection of data declarations and 
procedure declarations followed by a main body. 

An ASPL subprogram is a collection of procedure declarations. A 
subprogram is defined to be a program with an empty data group and empty 
main body. 

The compiler will produce an object file containing the object code, glob- 
ally allocated storage, : and various bits of information for the loader. 

Example -- 

1.) BEGIN 

INTEGER I, J; 

PROCEDURE P(A); VALUE A; INTEGER A; 

I +• 2*A; 
P(2*J); 
END- 



2.) BEGIN 

PROCEDURE PI; — ; 
PROCEDURE P2;-~ ; 

PROCEDURE PN; — ; 
END. 

3.) BEGIN 

END' .- null program 



II. 1.1 



COMPILER CONTROL OPTIONS 



Syntax 



<compiler control coramand> 
<control command part> 

< control command> 



$ < control command part> 

<control command> | 

<control command part>, <control command> 

adr|clist[innerlist| 

list|unlist| 

comp i le i nocomp i le | pag e | 

SEGMENT = <segment name> | 
MAIN = <program name> | 
VOID = <exclusive of field> 
INPUT = <source file name > 
CODE = <object file name> | 
EDIT I NEW I OTT I SUBPROGRAM 



Examples -- 

$ FILE=TAB1 CARD ADR CLIST 
$ FILE=SCR1 TAPE EDIT NEW 
$ UNLIST LIST 

Semantics -- 

The compiler control options allow the user to specify modes of 
input and output, and what form of listing will be emitted. A compiler 
control option may be used anywhere in the source program. Upon encountering 
a $, the remaining characters in the source image are assumed to contain 
control commands. Upon completing the image, the next sequential source 
image will be read, and the compiler will resume normal compilation. Con- 
trol commands are delimited by one or more blanks. 



MNEMONIC 



ADR 



FUNCTION 

Print a line after each declaration, showing the 
addressing mode and displacement of the declared 
variable. 



II. 2.1 



MNEMONIC 



FUNCTION 



CLIST 



INNERLIST 
LIST 



UNLIST 

CARD 
OTT 

SCOPE 

TAPE 
EDIT 



Print code emitted after each procedure and 
outer block. Prints code address and 8 
instructions per line. 

Print innerlist of code emitted by compiler. 

Print a line on the printer containing the 
source image, tape sequence number if appro- 
priate, lexicographical level and current 
code address. This option is used by default. 

Turn off ADR, CLIST, LIST and INNERLIST 
options . 

Source images will be read from card reader. 

All printing will be directed to the input 
terminal . 

Source images will be read from the teletype. 
This option is used by default. 

Source images will be read from magnetic tape. 

Edit tape images with card images during compil- 
ation. Columns 73-80 of the current tape image 
are compared with columns 73-80 of the current 
card image. Given TF = tape compare field, 

CF = card compare field then 
1. CF < TF use card image (insert) 



{ 



Read next card image. 



2. CF = TF use card image and 

{skip tape image (replacement) 
Read next card image. 

3. CF > TF use tape image. 

The comparison is determined by performing an 8 
byte ASCII compare on CF/TF. 



II. 2. 2 



MNEMONIC 
NEW 
DISC=XXXX 



FILE=YYYY 



FUNCTION 

Generates a new source tape. 

Source images will be read from the disk file 
named XXXX. If XXXX = TAPE, the images will be 
assumed to be read from magnetic tape. 

Object code will be written on a disk file 
named YYYY. 



VOID <exclusive of fields> This option is valid only when the EDIT option 

is being used. Columns 73-80 of this card are 
treated as described above. The notation <exclusive 
of fie ld> defines an 8 byte ASCII field, separated 
from the symbol VOID by at least one blank. Tape 
images will be skipped while <exclusive of field> 
> TF. 



Example -- 

$ VOID 01250000 



00101135 



II. 2. 3 



INPUT = <source file name> 
CODE = <object file name> 
COMPILE 

NOCOMPILE 

PAGE 

SEGMENT = <segment name> 

MAIN = <program name> 
SUBPROGRAM 



Source images will be read from the file 
specified. 

Object code will be written on file 
specified. 

If a NOCOMPILE was encountered previously 
then compilation will begin again; otherwise 
ignored. 

Stops compiling and treats source images as 
comments until a COMPILE option is encountered. 

Ejects a page on line printer 

Every segment must have a name. Each occur- 
rence of the SEGMENT option starts a new 
segment . The default name is SEG ' . 

Every main program must have a name. The 
default name is OB*. 

Either subprogram is specified or it is 
assumed to be program mode. Subprogram 
means no global data storage will be assigned 
by the compiler and no outer block code is 
permitted. 



1.1,2.4 



COMMENT CONSTRUCTS 
Syntax -- 

<comment> : : = COMMENT <any sequence of ASCII characters 

excluding ;> ; | 
<< {any sequence of ASCII characters} >> 

Semantics — 

Two forms of comment insertion are defined in ASPL. 

Form one, COMMENT, will be also used as a control statement for 
the ALPHA flow charter and text editior packages. Form 1 is 
treated as a null statement, and can be used anywhere a statement 
is syntactically valid. 

Form 2 is allowed anywhere in the program. 
Examples — 

COMMENT CONTROL: MESSAGE ; 
«THIS IS ALSO A COMMENT» 

Note: The following statements are equivalent. 
IF X<Y THEN COMMENT; GO TO L; 
IF X<Y THEN; GO TO L; 



II. 3.1 



GENERAL 



Delimiters 



A blank is recognized as a delimiter in ASPL. The only exception is 
the occurrence of a blank in a string constant. 



II. 4.1 



III. NUMBERS, STRINGS, IDENTIFIERS 



CONSTANTS 



Syntax -- 
< const ant > 
<number> 



:= <number> 



:string= 



<integer> | 
<real number> | 
<double integer> | 
<long real number> j 
< logical value> 



Semantics -- 

Strings are considered as type byte. No extended precision hardware operators 
are defined for handling long real numbers. The inclusion of long real numbers 
is a generalization useful for the development of library routines requiring 
extended precision. Calculations requiring extended real precision will be 
handled by calling library routines. Compatibility between constants and identi- 
fiers will be handled by the compiler with respect to type and precision. 



III. 1.1 



Syntax -- 
<integer> 

<decimal integer> 

<unsigned integer> 

<digit> 

<sign> 

<based integer> 

<base part> 
<base> 
<empty> 
<base digit> 

<composite integer> 
<integer field> 

<number of bits> 
<double integer> 



INTEGER CONSTANTS 



<unsigned integer>| 
<sign><unsigned integer> 

<digit>| 

<decimal integer><digit> 

<decimal integer> |<based integer> |<composite integer> 
0|1|2|3|4|5|6|7|8|9 

♦I- 

%<base partxbase digit> | 
<based integerxbase digit> 

(<base>) j<empty> 

any number of the set {2,3,4,5,6,7,8,9,10,11,12,13,14,15,16} 

a character string of zero length 

any of the digits from to <base>-l inclusive, taken 
from the set {0,1,2,3, 4, 5,6,7, 8,9, A, B,C,D,E,F} 

:= [^integer field list>] 

:= <number of bits>/<decimal integer> | 
<number of bits^/^ased-integ-e^.J.. ... , 
<number of bits>/<compos-ite integer> 

:= < decimal integer> 

;= *; integer > D 



Semantics-- 

An empty base part of a based integer is taken to be 8 Octal! by default. Composite 
numbers are right-justified binary integers formed through left to right concatena- 
tion of the binary integers defined by the integer fields. Any unspecified leading 
bits will be filled with zeros. Binary integers exceeding the field size will be 
truncated on the left. For example, the integer field 6/%177 will be truncated to 
%77. Any unusual condition will be flagged by the compiler. 



III. 2.1 



Care in the use of blank as a delimiter should be exercised when specifying 
based integers. 

The based integer 

%(16)ABCD 
is not equivalent in either type or value to the based integer 

% (16) ABC D. 

The blank inserted in the second example specifies that the constant is a 
double integer. 



Examples-- 
<decimal integer> 
<based integer> 

<composite integer* 

<integer> 



123941 

%1777, %(2)011010111, 
%C11)0A19 

[5/2,12/%5252], 

[2/211, 15/ [3/% (2) 101, 12/0], 10/123] D 

-123, -%(2)1110010 



III. 2. 2 



REAL CONSTANTS 



Syntax- - 

<real number> 

<unsigned real number> 



<fraction> 



<power> 



<long real number> 



<unsigned long real number> 



: := <unslgned real number> | 

<sign><unsigned real number> 

: := <fraction> | 

<decimal integer> E <power>| 
<fraction> E <power> | 
<composite integer> e| 
<based integer> E 

::= <decimal integer> .| 
.<digit>| 
<fraction> <digit> 

::= <decimal integer> | 

<sign> <decimal integer> 

: := <unsigned long real number> | 

<sign> <unsigned long real number> 

: := <decimal integer> L <power> | 
<fraction> L :<power> | 
<coraposite integer> L| 
<based integer> L 



Examples -- 



1.3214 , .1021 , -1.105E-21 

[3/7, 6/32, 25/%Cl6)ABCDEB] L 
% (6)1235415E , + 1.3971 

9321.015E28 



III. 3.1 



Syntax -- 



LOGICAL CONSTANTS 



<logical value> 



: : = TRUE | FALSE | <integer> 



Semantics -- 

Logical quantities are sixteen bit positive integers. Operations on logical values 
are defined in the hardware for addition, subtraction, multiplication, and division. 
A logical value is considered true if its value is odd, false if its value is even, 
i.e. only the last bit is checked. However, assignment of TRUE or FALSE corresponds 
to assigning the numeric value -1 or 0, respectively. 



III. 4.1 



STRING CONSTANTS 
Syntax -- 

<string> ::= "<character string>" 

<character string> ::= <character> | 

<character string><character> 

<character> : : = { a mem ber of the set of ASCII character representations} 
Semantics -- 

If a quote (") is to appear within a character string, it is represented by 
a pair of quotes. 



Examples 



"THE CHARACTER "" IS A QUOTE MARK" 

"A NORMAL STRING WOULD LOOK LIKE THIS" 



III. 5.1 



Syntax -- 



IDENTIFIERS 



<identifier> 



<T simpvar id> 
<T identified 
<T pointer id> 
<T array id> 
<procedure id> 

<T proc id> 
<proc id> 
<entry id> 
<label id> 
<switch id> 
<equate id> 
<de£ine id> 
<subroutine id> 

<T subr id> 
<subr id> 



::= <letter>| 

<identifier><letter> | 
<identifier><digit> | 
<identi£ier> ' 

= <T identi£ier> 

= <identifier> 

= <identifier> 

= <identifier> 

= <T proc id> | 
<proc id> 

= <identifier> 

= <identi£ier> 

= <identifier> 

= <identifier> 

= <identi£ier> 

= <identi£ier> 

= <identi£ier> 

= <T subr id>| 
<subr id> 

= <identifier> 

= <identifier> 



III. 6.1 



Semantics -- 

The symbol T must be replaced with: 
integer 
logical 
byte 
real 
long 
double 

The form of an identifier must be a sequence of less than 16 
contiguous alphanumeric characters. The first character must be a letter. 
Identifiers longer than 15 characters will be truncated on the right. The 
attributes of an identifier are determined by a declaration, not in any 
way by the form of the identifier. Apostrophes may also be used in an 
identifier, but may not be the first character. 

The compiler will assume 7 bit ASCII representation. Lower case 
letters are allowed but will be converted to upper case letters except when 
they appear in strings'. 

Section VIII. 2 contains a list of reserved symbols. These symbols 
may not be used as identifiers since they have an implied meaning as defined 
in the syntax. 

Examples -- 

MATRIX 

MAT1 

A123B 

X 

XYZ 

AN' IDENTIFIER 



III..6.2 



IV. DECLARATIONS 



SCOPE OF DECLARATION AND ADDRESSABILITY 



Variables assigned DB-relative locations or the X-register are addressable 
within the scope of the entire program (that is, their values are accessible, 
although their names may be undefined in various segments of the program) . 

Variables assigned Q relative locations are addressable within the scope of 
the procedure in which they are declared. 

Variables assigned S relative locations are addressable within the scope of 
the current S register setting. 



IV. 1.1 



ADDRESS ASSIGNMENTS 

Address assignments specify the addressing convention and storage 
allocated for variables. Variables declared globally, are assigned the DB 
relative addressing convention. Variables declared in the scope of a procedure , 
local variables, are assigned the Q+ addressing convention. The number of 
locations allocated depends on the data structure and type being declared. The 
following diagram will be useful in explaining the implications of address 
assignments. 

Assume that the declarations below have been made. When procedure PROC 
is called and executed, the data area will look like the figure on p. IV. 2. 2. 

BEGIN 

INTEGER ARRAY A(0:72); 
INTEGER I; 

LOGICAL ARRAY AAC0:9) = DB; 
PROCEDURE PROC; 
BEGIN 

INTEGER X,YJ 

BYTE ARRAY C(.0:W); 

OWN LOGICAL ARRAY BC3:7); 



IV. 2.1 



DATA AREA 



DB 



+ 12 (data label for ARRAY A) 
1 cell allocated for INTEGER I 
2 



direct ARRAY AA 



N=ll_ 
12 



storage for ARRAY A 



PRIMARY DB DATA AREA : 

DB [0:N] directly addressable relative 

to DB register, where 0<=N<=255 



SECONDARY DB DATA AREA : 

DB [N+1:Q T ] accessible through 

data label, (indirect addressing), 

where Q T is the initial Q-register 

setting 



84_ 
85 

89_ 
Qt 



storage for OWN ARRAY B 



INITIAL Q-REGISTER SETTING 



+ 1 INTEGER X 
2 Y 



Q-REGISTER SETTING FOR CURRENT PROCEDURE 
(Procedure PROC in this example) 



3 Q-DB+5 (data label for ARRAY C ) 

4 85 (data label for OWN ARR AY B) Local Variable Storage 

5 

storage for ARRAY C 



S -REGISTER SETTING 



Remaining User Stack 



IV. 2. 2 



Simple Variable and Pointers 

A simple variable or pointer is allocated the next sequential 
location (s) relative to DB or Q as specified above. The number of 
locations allocated is: 

a) One for integer, logical, byte or pointer variables. 

b) Two for double or real variables. 

c) Three for long variables. 

Example: The global declaration INTEGER I would allocate the location 
DB+N to the variable I . The next assignable DB relative 
location would be DB+(N+1). 



IV. 2. 3 



Arrays 

I. Indirectly addressed through a data label : 

Normally, an array is allocated storage in either the secondary DB data area 
or in the stack following local variable allocation. The data label through 
which the array is accessed is assigned a single location relative to DB if 
global, or Q if local. 

If the array bounds are undefined and the reference part is empty, the user 
will be required to allocate his own storage and initialize the location al- 
located for the data label with the address of the allocated space. 

Examples of code for storage allocation will be found in section IV. 7. 

If the array bounds are dynamic, the upper and lower bound will be computed, 
and storage will be allocated in the stack upon procedure entry. 

The quantity of space allocated for an array is dependent on its type. 

a) N words for integer or logical arrays of N elements. 

b) 2*N words for double or real arrays of N elements. 

c) 3*N words for long arrays of N elements. 

d) (N+l) DIV 2 for byte arrays of N elements. 

II. Directly addressable : 

ASPL allows the user to specify that an array will be directly addressable 
by using the notation =DB or =Q as defined in section IV. 7.1. Care should 
be exercised, however, in the use of direct arrays, since the available 
directly addressable range is rather limited. Directly addressable arrays 
are allocated the next M sequential locations relative to DB or Q, where M 
is the number of words to be allocated. 



IV.2.4 



ADDRESS REFERENCES 



Address references allow the programmer to equate variables to other variables 
or equate an address relative to an addressing convention. Generally, no 
storage is allocated when an address reference is specified . Exceptions will 
be noted. There are three forms of address referencing: 

Form 1 . 

identifier reference> | identifier reference> <sign> <unsigned integer> 

The declared simple variable or pointer is assigned the addressing convention and 
address of the referenced identifier, adjusted by the value of the sign-and-integer 
if present. 

Examples : 

Assume the variable A has been assigned the location DB+5. Then we would 
have the following: 

REAL B = A would assign B the location DB+5. 
INTEGER BR=A+1 would assign BR the location DB+6. 
POINTER P=A-5 would assign P the location DB+0. 

Form 2. 



DB+N | Q+N | Q-N | S-N | X where N is an unsigned integer. . 

The variable is assigned the address N relative to the specified addressing con- 
vention. .... 

Note that Q relative addressing may be negative and S relative addressing is 
always negative or zero. The X address reference is valid only for simple 
variables of type integer or logical. 

Variables equated with the X- register are assumed to all have the same value. 
Since the X- register is used in all array indexing plus numerous other calculations, 
the current value contained in X is the value assigned all variables equated to X. 
The compiler will not save the value of X. It will be the user's responsibility 
to maintain integrity for variables equated to the X- register if he so desires. 



IV.2.5 



Arrays specifying this option will be accessed directly if the undefined bounds 
specifier is an *, with the array base being taken as the displacement N from 
the specifier register -- excluding X, of course. If the undefined bound 
specifier is an @, the array will be accessed indirectly through the assigned 
location. 



Examples : 




INTEGER POINTER 


S0 = S-0; 


REAL R = DB+25; 




INTEGER X=X; 




Form 3. 





<indexed ident ref> ::= <array id>|<array id>(<integer>) | 

<pointer id> | <pointer id>(<integer>) 

This form is restricted for use with arrays only. It is used to equate an 
array with a previously declared array or pointer. 

This form may also require the allocation of a cell for a data label, through 
which the declared array will be accessed. This will occur if the index part is 
non-empty, or if the referenced variable specifies indirection and its data label 
is incompatible with the form of data label required for accessing the declared 
array. A byte data label has a different format than a word data label (i.e. 
byte address vs. word address). 

Examples : 

1 . ) INTEGER ARRAY IA(0 : 5) ; 

2.) LOGICAL ARRAY LA(*) * LA; 

3.) POINTER P; 

4.) BYTE ARRAY BA(*) = LA; 

5.) BYTE ARRAY BAX(*) = BA(3) j 

6.) ARRAY LAX(*) = P; 



IV.2.6 



Comment on examples on previous page: 

Example 2.) LA takes on the same convention, address, and indirection as IA. 

Example 4.) BA requires the allocation of a location since their data labels 

are incompatible. 
Example 5.) BAX requires the allocation of a location since an index is 

specified. 
Example 6.) LAX takes on the same convention, address, and will be accessible 

through the same data label assigned to P. 



IV.2.7 



STATIC INITIALIZATION 

Static initialization of simple variables is specified by following the 
identifier with a ■■*- and a constant of appropriate type. This allows a variable 
to be compiled with an initial value of the programmer's choosing. 

Static initialization of arrays is only allowed for global, local own or local PB- 
relative arrays with defined dimensions. The elements of the initialization 
list are separated by a comma. Note that local arrays may only be statically 
initialized if declared PB-relative or own. Global PB relative arrays are not 
allowed, as shown on p. IV. 7.1. Byte variables may be initialized with string, 
integer, or logical values. If the initialization value requires more than 
eight bits for its representation, a warning message will be emitted. 

Strings may also be used to initialize variables of non-byte types. 

Examples: 

INTEGER L ■*• - 144, J *■ 0, K + %255; 

BYTE B -*- "$" 

REAL X + 3.1459, Y «- 34156; 

LOGICAL LX «- % 177777; 

BYTE ARRAY EMESS (0:131) «- "**** ERROR NO. XXX *****"; 

INTEGER ARRAY LINKTAB (0:35) -*• 0,231, -4,126, ; 

OWN ARRAY OTAB (5:10) + 0,1,2,3,4,5; 

Note: Only the last array specified in an array declaration list can be 
initialized. 



IV.3.1 



GLOBAL-EXTERNAL OPTION 

Local variables assigned the attribute 'EXTERNAL' will be linked to the 
appropriate location by the loader. An 'EXTERNAL' variable must match in 
name and type a global variable which has been assigned the attribute 'GLOBAL' 

'EXTERNAL' variables may not be used as the object of an address reference, 
nor may they be given an address reference or assignment, nor may they be 
statically initialized. 

The actual address at run time will be the global address assigned the 
'GLOBAL' variable; the loader will flag a load error if no match is found. 

Of course, the attribute 'GLOBAL' may only be used in a global declaration. 



IV. 4.1 



TYPE ATTRIBUTE 



The type assigned a variable defines the allowable set of ALPHA instructions 
which may operate on the variable. A thorough definition of type will be 
found in the ALPHA external reference specification. A simplified coverage 
is given here. 

Type. Six declarators are defined for type assignment; the values assigned 
variables with the following types are: 



c. 



INTEGER Csingle precision positive and negative integral values, 

including zero. Sixteen bit, two's complement representa- 
tion). 

REAL (single precision positive and negative floating point 

values, including zero. Thirty- two bit sign + magnitude 
representation) . 

DOUBLE (double precision positive and negative integral values, 
including zero. Thirty- two bit, two's complement repre- 
sentation) . 

d. LONG (extended precision positive and negative floating point 

values, including zero. Forty-eight bit sign + magnitude 
representation) . 

e. LOGICAL (sixteen bit positive integral representation). 

f . BYTE (eight bit integral representation) . 



IV. 5.r 



DECLARATIONS 



Syntax -- 
<data group> 

<data declaration> 



<procedure group> 
">proc group> 
< intrinsic group> 
<subdata group> 
<subdata declaration> 



: ;=* 



<data group> <data declaration> ; [ 
<empty> 

<simpvar declaration> | 
<pointer declaration j 
< array declaration> j 
<label declaration> | 
<switch declaration> \ 
<entry declaration> | 
<equate declaration | 
<define declaration> 

<procedure group> <snbroutine declaration> 
<proc group> 

<proc group> <procednre declaration> | 
< intrinsic grcrap> 

<intri.nsic group> <i.ntrinsic declaration | 
<empty> 

<subdata group> <subdata declaration> | 
<subdata declaration> | <empty> 

<simpvar declaration> | 
<pointer declaration | 
<array declaration> | 
<equate declaration | 
<define declaration> 



IV. 6.1 



Semantics -- 

Declarations are provided in the language for giving the compiler information 
about the constituents of the program, such as array sizes, the types and 
values variables may assume, labels, procedures, etc. Each such constituent 
must be named by an identifier, and all identifiers must be declared before 
they are used. Labels may be declared implicitly by their appearance in a 
switch declaration, a GOTO statement, or of course, by labeling a statement. 

Elements of a subdata group which imply storage locations must either be 
external or have address references. 



iy,6,2 



ARRAY DECLARATIONS 



Syntax- - 

<array declaration> 

<global array deo 

< local array dec> 



<atype> 
<G-dec> 

<g- array deo 

<E-dec> 

<L- array deo 



<own array deo 

<db> 
<udb> 

<vb> 

<re£erence part> 

<indexed ident reference> 



:= <global array deo | 
<local array deo 

:= <atype> ARRAY <g-array dec list>| 
GLOBAL <atype> ARRAY <G-dec list> 

:= <atype> ARRAY <L-array dec list> | 
EXTERNAL <atype> ARRAY <E-dec list> | 
OWN <atype> ARRAY <own array dec list> 

;= <type> | <empty> 

:= <identifier>(<db>)=DB<array init list> | 
<identifier>(<db>)<array init> 

= <G-dec>| 

<identifier>(@)<indirect base register reference>| 
<identifier>(<udb>) <reference part> 

= <identif ier> ( <udb>) 

= <identif ier> (<db>) =Q | 
<identifier>(<db>) | 
<identifier>C<db>) =PB^<lj>telTnt5> | 
<identifier>C<vb>) | 
<identifier>(<udb>) <reference part> | 
<identifier>C@)<indirect base register referenco 

= <identifier>(<db>)<array init> 

= <integer> : <integer> {defined bounds} 
= * {undefined bounds} 

- «Tj siropvar id?:<T s-iinpyar id^I-var table Bounds} 

= <var ref erence> | 

=<indexed ident reference> 

= <array id> | < array id>(<integer>) 
<pointer id> | <pointer id>(<integer>) 



IV. 7.1 



<array init> 



<listelmt> 



<var re£erence> 



<base register re£erence> 



<USI> 



: := <empty>| 

.*. <listelmt> 
: := <initial value> | 

_<decimal integer> C<listelmt>] | <listelmt list> 

: := <empty> | 

= <identifier> 

= <identi£ier><sign><USI> 

= <base register reference> 

: := DB + <USI> 
Q + <USI> 
Q - <USI> 
S - <USI> 

: :=<unsigned integer> 



<indirect base register re£erence> ::= <empty> | 

=<base register re£erence> 



IV.7.2 



Semantics -- 

An array declaration specifies one or more identifiers to represent arrays of 
subscripted variables. An array declaration may define the following informa- 
tion about an array identifier. 

1. The bound specification which determines the range of indexing. 

2. The type of values the array elements will take on. 

3. The storage allocation method. 

4. Array initialization if specified. 

5. The access mode, direct or indirect. 

If the array has been specified OWN, storage will be allocated and initialized 
by the loader. The loader will also guarantee that the Q+ relative cell allo- 
cated for the array data label will be initialized upon procedure entry. OWN 
arrays are accessible only by the procedure in which they are declared or by 
procedures called by the declarer to which the declarer has passed the array by 
reference. 

Note that global PB- relative arrays are not allowed and that local arrays may 
only be statically initialized if declared PB-relative or own. 



IV. 7.3 



Bound checking code is not emitted by the compiler. 

An empty type attribute will assign the array type LOGICAL by default. 

If indirect addressing is specified, the data label will point at the zero element 
of the array. If the lower bound is greater than zero, or the upper bound is less 
than zero, then the zero element does not reside in the allocated space. 

If direct addressing is requested, the displacement relative to the specified 
register will correspond to the zero element of the array. 

An upper bound must not be smaller than the corresponding lower bound. 

Dynamic bounds are evaluated once upon entry into the procedure. These bounds can 
depend only on values which are non-local to the procedure for which the ARRAY 
declaration is valid. 

If the array specifies a ?B relative reference, the initialization list •:ill V 
copied into the code string preceding all executable code for the procedure. The 
range of the array will he the length of the list. Arrays- so specified can not be 
used as the object of a store operation. 

Arrays specifying undefined bounds will be handled as follows: 

1. If the array has the attribute EXTERNAL, it will be linked as described in the 
section on GLOBAL - EXTERNAL. 

2. If the array specifies an empty reference part, the array will be indirectly ac- 
cessed through a DB+ or Q+ relative location assigned by the compiler. The user 
must allocate his own storage and initialize the assigned location with a cor- 
responding data label. 

3. The remaining uses of an undefined bound are described in detail in the section 
on address references. 

The symbol T.. must be replaced as given on p. 1.2.2. 



IV. 7.4 



Examples - 



LOGICAL 
BYTE ARRAY 
REAL ARRAY 
INTEGER ARRAY 
ARRAY LL(*), 
GLOBAL ARRAY 
EXTERNAL ARRAY 



ARRAY T(*) = S-l, A(0:4) = DB «- 0,1,2,3; 
B(*) = A, BITE (1.6)*-"******"; 
RA(0:5) ■*- 1.123,0,-3.14159, l,-.0003; 
IA(LB:UB), IA1(0:UB), IA2(*) = B 
LB (0:1000) 
AA (1:10) 

AA (*), BB(*); 

BYTE ARRAY BTYES (0:22) = PB «- "PB RELATIVE BYTE STRING"; 
LONG ARRAY L(-5:5) 
OWN ARRAY AX (0:100), BX(-5:10); 
INTEGER ARRAY IAX(0:49)=Q; 
BYTE ARRAY BAX(@)=DB+3; 

The following examples are given to show the storage allocation code emitted for 
arrays declared within the scope of a procedure. Storage allocation for global 
arrays requires no code generation since space is allocated in the area between 
the last assigned DB+ location and the initial Q setting. In the following ex- 
ample, assume that S is positioned to point at the next available location in the 
stack. 



INTEGER ARRAY 


IA0 i 


(LB:UB); 




LRA 


S 




SUBM 


LB 




DUP, INCB 




STOR 


Q + N 




ADDM 


LIB 




SETR 


S 


INTEGER ARRAY 


IA1(0:UB); 




LRA 


S 




STOR 


Q + N 




LOAD 


UB 




INCA 






ADDS 





INTEGER ARRAY 


IA2(- 


5:0); 




LRA 


S 




ADDI 


5 




STOR 


Q + N 




ADDS 


6 



Location assigned IA0 for data label 



Location assigned IA1 for data label 



Location assigned IA2 for data label 
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BYTE ARRAY 



5. REAL ARRAY 



6. LONG ARRAY 



7. REAL ARRAY 



BA0 (LB:UB); 


LRA 


S 


LSL 


1 


SUBM 


LB 


TRBC 


15 


STOR 


Q + N 


LOAD 


UB 


TSBC 


15 


SUBM 


LB 


ADDI 


2 


LSR 


1 


ADDS 





RA0 (0: 


:100); 


LRA 


S 


STOR 


Q + N 


ADDS 


202 


LA0 (-£ 


1:10); 


LRA 


S 


ADDI 


15 


STOR 


Q + N 


ADDS 


48 


RA1 (LB:UB); 


LRA 


S 


LOAD 


LB 


ASL 


1 


SUB 




STOR 


Q + N 


LOAD 


UB 


SUBM 


LB 


INCA 




LSL 


1 


ADDS 






Location assigned BA0 for byte data label 



Location assigned RA0 for data label 



Location assigned LA0 for data label 



Location assigned RA1 for data label 



IV. 7. 6 



8. INTEGER ARRAY 



IA3(5:15); 



LRA S-5 
STOR Q+N 
ADDS 11 



Location assigned IA3 for data label 



IV. 7. 7 



DEFINE DECLARATION AND INVOCATION 



Syntax -- 



<de£ine declaration 
<definition> 
<define identifier> 
<text> 

<define invocation> 



= DEFINE definition list> 

= <de£ine identifier = <text> # 

= <identifier> 

= {any sequence of valid symbols not 

including #} 
:= <define identifier> 



Examples -- 

Define declaration: 

DEFINE FORI = FOR I«-l STEP 1 UNTIL #, ADDUP = A*B+C/D# 

Text: 

PROCEDUREX 

ANYONE 

IF BE THEN GO QUIT ELSE TFX(JUNK) 

Invocation: 
FORI 
ADDUP 



NOTE: A string containing the character S will not terminate the text 
for a define; i.e., the string "ABC#"# is legal text and will be 
terminated upon recognition of the first # not contained in a 
string. 



IV. 8.1 



Semantics -- 

The DEFINE declaration assigns the meaning of the defined identifiers from 
the ASPL source language texts. 

An invocation causes the replacement of the defined identifier being invoked 
by the text which is associated with the defined identifier. 

At declaration time, a definition is of no consequence, it has meaning only 
in relation to the context in which its related defined identifier appears. 
For this reason, undeclared identifiers may appear in definitions; all 
identifiers must have been declared, however, when the defined identifier 
is used. During compilation, syntax errors (if any) in a definition are 
noted following the use of the defined identifier. 

Definitions can be nested; that is, defined identifiers may be used in 
definitions . 

It is legal to use ( invoke ) defines in declarations, as in the example 
below: 

DEFINE I = ARRAY B(0:1)#; 

INTEGER I; {Integer Array B(0:1)} 



IV. 8.2 



ENTRY DECLARATION 

Syntax- - 

<entry declaration> : := ENTRY identifier list> 

Examples-- 

ENTRY SINF, COSF, TANF; 

Semantics — 

An entry declaration is provided for the specification of multiple procedure 
or main program entry points. If the entry declaration is local to a procedure 
body, the type of the procedure, if present, and formal parameter list of the 
procedure in which it is declared will be assigned to the entry point. An entry 
point must occur in the procedure body or main body at some point as a statement 
label, i.e. the declared identifier followed by a colon. When the statement label 
is encountered, the current code position is marked as the entry point for the pro- 
cedure or main. All identifiers declared in an entry declaration may be used as 
the object of a GOTO statement, subject of course, to the same rules governing 
label identifiers. • 

Another example-- 

REAL PROCEDURE F(X); VALUE X; REAL X; 
BEGIN 

REAL Y-J-1.354, Z+-1.0 E-5; 
ENTRY F1,F2; 

F-<- Y*X+Z; «entry point for F» 
RETURN; 
Fl: TOS-«-Y*X; «entry point for Fl» 

GOTO LI; 

F2: IF X<0.0 THEN «entry point for F2» 
TOS^-REALCTOS)-Z ELSE TOS«-0.; 

LI: F2+-T0S; 

END «F,F1,F2»; 



IV.9.1 



EQUATE DECLARATION 



Syntax- - 

<equate declaration> 

<equate> 

<equate identifier> 

<equate express ion> 

<equate re£> 

<sign> 

<operator> 



EQUATE <equate list> 

<equate identifier>=<equate expression> 

<identifier> 

<sign><equate ref>|<equate ref>| 

<equate express ion><operator><equate ref> 

<unsigned integer> | <equate identifier> 

♦|- 
<addop>|*|/ 



Examples-- 



EQUATE X = 1, Y = X+l, Z = Y+l 
EQUATE T = Z/2-3+X 



Semantics-- 



The equate declaration assigns the value of the equate expression to the 
equate identifier. In the preceding examples X, Y, Z, and T would take on the 
values 1,2,3,-1, respectively. 



IV. 10.1 



INTRINSIC DECLARATION 
Syntax -- 

<intrinsic declaration : := INTRINSIC <intrinsic id list> 
<intrinsic id> : := <identi£ier> 

Semantics -- 

The intrinsic declaration provides a simple method for specifying system 
intrinsics that will be called. 

Consult AMOS manual for specification of number and type of parameters, 
and a general discussion of the available system intrinsics. 

Example -- 

INTRINSIC FOPEN, FREAD, FWRITE; 



IV. 11.1 



LABEL DECLARATIONS 

Syntax -- 

<label declaration : := LABEL <label list> 

<label> ::= <identifier> 

Examples -- 

LABEL START, STOP, NEXT 

Semantics -- 

A label declaration defines each identifier in its label list as a label identi- 
fier. 



IV. 12.1 



POINTER DECLARATION 



Syntax- - 

<pointer declaration 

<global pointer deo 
<local pointer deo 

<pointer deo 
<pointer init> 
<address speci£ication> 



: := <global pointer dec> | 
<local pointer dec> 

: := <global attribute ><atype>POINTER<pointer dec list> 

: := <atype> POINTER <pointer dec list>| 
OWN <atype> POINTER identifier list>| 
EXTERNAL <atype> POINTER identifier list> 

: := <identifier><pointer init>| 
<identifier><var reference> 

: := -<-§<address specification> | 
<empty> 

: := <simpvar id> | 

<indexed identifier reference > 



Semantics-- 

A pointer represents the address of a quantity. That is to say, it "points" 
to a byte or word position. The contents of the location assigned a pointer 
is a word or byte data label. The type of the entity "pointed at" by the pointer 
is assumed to correspond to the type assigned the pointer. 



An 



empty type attribute will assign the pointer type LOGICAL by default. 



Examples- 
Pointer declaration: 



BYTE POINTER BP1,BP2=K,BP3«-@A(123) 

POINTER X,Y,Z 

REAL POINTER RP=IP, RP1-H3X 



IV. 13.1 



PROCEDURE DECLARATION 



Syntax-- 

<procedure declaration> 

<ctype> 

<proc head> 

<£ormal part> 

< formal param> 
<value part> 

<specification part> 

<specification> 



<option part> 



<option> 



<proc body> 



: := <ctype> PROCEDURE <proc head> <proc body> 

: := <type> | <empty> 

::= <identifier> <formal part> <option part> | 
<identifier>;<option part> 

: := (<formal param list>); <value part> 
<specification part> 

: := <identifier> 

: := VALUE identifier list>;| 
<empty> 

::= <specification>; | 

<specifi cation part> <specification>; 

::= <type> identifier list>| 

<atype> ARRAY identifier list> | 
LABEL identifier list> | 
<atype> POINTER identifier list>| 
<atype> PROCEDURE identifier list> 

::= OPTION <option list>; | 
<empty> 

: : = UNCALLABLE | PRIVILEGED | 

EXTERNAL | CHECK < integer from to 3> | 

VARIABLE | 

FORWARD | 

INTERRUPT {See AMOS ERS for definition} 

: := <statement>| 

BEGIN <data group> <procedure group> 
< compound tail> | <empty> 



Note: If a procedure declaration appears in another procedure then it must 
have the option EXTERNAL. 



IV. 14.1 



Semantics-- 

A PROCEDURE declaration defines the procedure identifier as the name of a 
procedure and what the procedure shall be. 

A procedure with a non-empty type field can be used as a function designator. 

Every formal parameter must appear in the specification part. 

The <value part> specifies which formal parameters are to be called by value . 
When a formal parameter is called by value, the formal parameter is set to the 
value of the corresponding actual parameter; therefore, the formal parameter is 
handled as a variable that is local to the procedure body. That is, any change 
of value of the variable will not be known outside the procedure body. Note that 
arrays cannot be called by value. 

Only expressions may be given as actual parameters to be called by value. 
The expressions are evaluated once, left-to-right, in the order in which they 
occur in the actual parameter list. 

Formal parameters that are not contained in <value part> are said to be 
called by reference . In this case the address of the actual parameter (which 
must be an identifier) is passed into the corresponding formal parameter cell. 
An occurrence of that parameter in the procedure may therefore change the value 
of the variable outside the procedure. 

Procedures may be called recursively. If the procedure body is empty, the 
option FORWARD or EXTERNAL must be specified. 

If the procedure body is non empty, it is executed when the procedure is invoked. 

If the option FORWARD is specified, the complete procedure will be introduced 
later in the program. A FORWARD reference is required to eliminate the contradic- 
tion imposed by the requirement of procedure declaration before a procedure refer- 
ence. A FORWARD reference is required when a procedure calls another procedure, 
which in turn references the first procedure. 

IV. 14.2 



If the option VARIABLES is specified, the procedure can be invoked with a 
variable length actual parameter list. The location (Q-4) will contain a 
bit mask (locations Q-5 and 0-4 if more than 16 parameters). 

For each missing parameter the corresponding bit (the correspondence is from 
right to left) is set. Missing parameters are indicated by the actual parameter 
part being empty. Consecutive missing parameters starting from the right need 
not be represented by a sequence of commas; the occurrence of a right parenthesis 
in place of a comma implies the rest of the parameters are missing. 

Examples -- 

Declaration: 

Procedure P(A,B,C); VALUE A,B,C; 
INTEGER A,B,C; OPTION VARIABLE; 

Invocation: 

P(3,,2) would generate the code: 

LDI 3 
ADDS 1 
LDI 2 
LDI 2 
PCAL P 

P(K) would generate the code: 

LOAD K 
ADDS 2 
LDI 3 
PCAL P 

PCK1,K2,3) would generate the code: 

LOAD Kl 
LOAD K2 
LDI 3 
ZERO 
PCAL P 

IV. 14. 3 



P(,,K) would generate the code: 

ADDS 2 
LOAD K 
LDI 6 
PCAL P 



iy.14.3A 



The following paragraphs discuss the use of pointer variables as actual 
parameters . 

Pointers, when used as actual parameters, generate the code shown in the 
tables below. The advantages of having pointers as formal parameters are: 
indirection and indexibility. 

An actual parameter may itself be a formal parameter. In this case, if 
as a formal parameter a pointer is a "value" pointer, the code generated Is the 
same as that for using a globally or locally declared pointer as actual parameter. 

The tables do not show the cases where the object of the pointer is a byte 
or multi-word. In these cases a byte load or multi-word load is generated in 
place of the load instruction for the object. 

In addition the actual parameter may be indexed except when the corresponding 
formal parameter is a "reference" pointer. Where indexing is valid and the 
loading of an address is required, a shift instruction and an ADXA instruction 
may be generated. 

Actual parameter is ei ther a decla red pointer or itself a formal p arameter 

by value 

Actual Parameter Formal Parameter 

integer value integer 

P ° inter LOAD P L OAD P, I 

@P ° inter LRA P LQADP 

Actual Parameter 



pointer 

Actual Parameter 

pointer 







Formal 


Parameter 






pointer 


value 


pointer 






LRA P 


LOAD P 








Formal 


Parameter 






array 


arrays 


may no1 






LOAD P 






IV. 


14 


.4 







Actual parameter is itself a formal parameter by reference . 



Actual Parameter 



pointer 
@ pointer 



Formal Parameter 



integer 

LOAD P,I 
LOAD P 



value integer 

LOAD P, I; LOAD S-0,I;DELB 
LOAD P,I 



Actual Parameter 



pointer 



Formal Parameter 



pointer 
LOAD P 



value pointer 
LOAD P,I 



Actual Parameter 



pointer 



Formal Parameter 



array 
LOAD P,I 



arrays may not be by value 



IV. 14.5 



If the option EXTERNAL is specified, the procedure will be linked to the 
program at run time. EXTERNAL implies the procedure will be compiled extern- 
ally in the sub-program mode. 

The option UNCALLABLE can be assigned to a procedure. The definition of an 
UNCALLABLE procedure will be found in the ALPHA external reference specification, 

A procedure is assured to be callable if the option UNCALLABLE is not 
specified. 

Examples -- 

INTEGER PROCEDURE LINK (A, I); VALUE I; INTEGER I; INTEGER ARRAY A; 
BEGIN 

INTEGER L; 

WHILE I > DO 
BEGIN 
IF A(I+1) > KEY THEN 
BEGIN 
LINK +- I; 
GO QUIT; 
END; 
I «-A(ID; 
END; 
QUIT: 
END «LINK»; 

PROCEDURE READ; 
IF TAPETOG THEN 

READFROMTAPE (WORDS, BUF) 
ELSE 
READFROMDISK CNWORDS, SECTOR, BUF); 

PROCEDURE T(I); VALUE I; INTEGER I; 
TOS + LOGICAL (I) AND %377; 



IV. 14.6 



If the option PRIVILEGED is specified, then the code generated will be 
executed in privileged mode. 

The option CHECK may be used whenever external procedures occur. The option 
may be used when a procedure to be used as an external procedure is declared. 
It may also be used when a dummy external declaration is made by the caller. 
The absence of the option in either case implies that no checking will take 
place. Otherwise, the smaller of the two parameters is used to determine the 
level of checking. 

no checking 

1 check procedure type only 

2 check procedure type and number of parameters 

3 check procedure type, number of parameters, and type of each parameter 

In the case of intrinsic procedures, the level of checking is determined by the 
intrinsic procedure and not by the caller. 

Example: 

Procedure to be used as an external procedure 

PROCEDURE P(A,B); VALUE A,B; INTEGER A,B; 
OPTION CHECK 3; 
BEGIN 

A <- A + B; 
END; 

Procedure declared external 

PROCEDURE P(X,Y,Z); VALUE X,Y,Z; REAL X,Y,Z; OPTION EXTERNAL, CHECK 1; 

No error would be detected because the level of checking would be the smaller of 
the two parameters which is 1 and there is no conflict in procedure type. 

Procedure declared external 

PROCEDURE P(X,Y,Z); VALUE X,Y,Z; REAL X,Y,Z; OPETION EXTERNAL, CHECK 2; 
The loader will flag an error because the number of parameters is incompatible. 

IV. 14. 7 



SIMPLE VARIABLE DECLARATION 



Syntax-- 

<simpvar declaration 

<global simpvar dec> 
<global attribute> 
< local simpvar deo 

<type> 

<var dec> 

<nonref var dec> 
<var reference> 



<base register referenco 



<USt> 

< simpvar init > 

<initial value> 
Semantics-- 



: := <global simpvar deo| 
<local simpvar dec> 

::= <global attribute><type>^var dec list> 

: := GLOBAL | <empty> 

: := OWN <typexnonref var dec list>| 
EXTERNAL <typexidentifier list> [ 
•ctypexvar dec list> 

: := INTEGER | LOGICAL [ BYTE | 
DOUBLE [ REAL | LONG 

: := <identi£ier><var reference> 

<identifier>= x| <identifier><simpvar init> 

: := <identi£ier><simpvar init> 

: := <empty> | 

=<identifier> | 
=<identi£ier><sign><USL> 
=<base register reference> 

::= DB+<USI>| 
Q+<USI>[ 
Q-<USI> | 
S-< USI> 

: := <<insigned integer > 

: := < empty> | 

-<-< initial value > 

::= {a valid ASPL constant} 



A simple variable declaration defines the type, addressing convention, and form 
of initialization of each element in the list. The type assigned a variable 
specifies the allowable set of ALPHA instructions which may operate on the variable. 
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Examples- 



INTEGER I, J <- 1245, L 

DOUBLE IL «- -1234579D 

REAL A,B,C f- 1.321 E -21 

LONG AA -e -1.3225' L+25, BB 

BYTE Bl «- "$", BITEV, EIGHTBITS 

LOGICAL T + TRUE, F +■ FALSE 



IV.1S.2 



SUBROUTINE DECLARATION 



Syntax-- 

subroutine declaration> 
<sub head> 

<formal id part> 

<sub body> 
<stype> 



::= <stype> SUBROUTINE <sub headxsub body> 

: := <identi fier>< formal idpart>| 
<identifier>; 

: := (<£ormal param list>) ;<value partxspecification 

part> 

: := <statement> 

: := <type> | <empty> 



Example- 



SUBROUTINE RADD (A,B,M) ; VALUE M; 
INTEGER M; ARRAY A , B ; 
BEGIN 

FOR I -H8 STEP 1 UNTIL M DO 

A (I)* A(I)+B(I); 
END «RADD»; 



Semantics — 

A SUBROUTINE declaration defines the subroutine identifier as the name of 
a subroutine and defines what the subroutine shall be. 

Every formal parameter must appear in the specification part. 

No declarations are allowed in the scope of a subroutine body. 



IV. 16.1 



The value part specifies which formal parameters are to be called by 
value. When a formal parameter is called by value, the formal parameter is 
set to the value of the corresponding actual parameter; thereafter, the 
formal parameter is handled as a variable that is local to the subroutine 
body. That is, any change of value of the variable wiil not be known outside 
the subroutine body. Arrays cannot be called by value. 

Only expressions may be given as actual parameters to be called by value. 
The expressions are evaluated once, left- to-right, in the order in which they 
occur in the actual parameter list. 

Formal parameters not in the value part are called by reference. This 
means that whenever an actual parameter called by reference, appears in the 
procedure body, the actual parameter is re-evaluated. 

Subroutines may be called recursively. 

Typed subroutines can be used as a function designator. 

Globally declared subroutines may be invoked only in the main program. 

Locally declared subroutines may be invoked only in scope of the procedure 
in which they are declared. 



IV.16.2 



SWITCH DECLARATIONS 

Syntax -- 

<switch declaration : := SWITCH<identifier>-<-<label list> 

Examples — 

SWITCH SW «- L0, LI, L2, L3 

Semantics -- 

A SWITCH declaration defines an identifier to represent a set of labels. The 
set is composed of the identifiers in the label list. 

Associated with each label in the label list (from left to right) is an ordinal 
number from to N-l (where N is the total number of labels in the list) . This 
number indicates the position of the label in the label list. 

The value of the switch designator corresponding to a given value of the . subscript 
expression determines which label is selected from the label list. The identifier 
thus selected supplies a label in the program to which control is transferred. 



IV.17.1 



V. EXPRESSIONS 



EXPRESSIONS 



Syntax-- 

<expr> 

<T expr> 

<logical expr> 
<IF expr> 
Semantics-- 



= <T expr>|<IF expr> 
= <aexp> 
= <lexp> 



= <IF clause> THEN <expr> ELSE <expr> 



Expressions in ASPL can be classified as arithmetic and logical 
expressions. 

Execution of operators is in a left to right sequence unless there is a 
conflict with the hierarchy of operators in which case the hierarchy takes 
precedence. Operators in parentheses take precedence over operators not so 
contained. 

For an IF expression the two expressions following THEN and ELSE must be 
the same size; in this context a byte expression is of length one word. 

The symbols T and T 3 must be replaced as given on p. 1.2.2. 

The order in which operands are loaded cannot be determined in a simple 
manner and the user should be careful whenever side effects may be introduced 
by certain constructs. 

e.g. A (I) «- B (H-I+l) 

In this example it is not clear whether the index for the array A should 
be the value of I before the statement is executed or the incremented value 
of I. For optimization purposes the I used by the compiler is the incremented 
one. 

A (I) «- B(I) * K + C (I«-I+l) 
The index for B is loaded first; for C second; for A third. 
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NOTE: For long arithmetic there do not correspond any machine 

instructions so that all long arithmetic is done by calls 
on routines. For double operands- multiplication and di- 
vision are not allowed. 

In order to clarify the hierarchial analysis in parsing an expression, 
some examples are given of the order in which operators are performed. 
Logical and arithmetic expressions are parsed in a similar fashion but with 
a different set of operators. 

operators of the same rank are performed 
from left to right. 

operators of different rank are performed 
according to its position in the hierarchy. 

operators inclosed in parentheses take precedence 
over operators not so inclosed. 

left to right order is maintained unless the 
operator is in direct contention with an op- 
erator higher in the hierarchy or is contained 
in parentheses. 



A - B + C 

V 1 

A + B * C 


i E 
MOD 




(A+B) * C 




A - B + C * D 




1 




A t(B-C)*D/E 

L_ 


F+G 



B-C performed first because it is inclosed in parentheses 

+ is performed next because it is of higher rank than * 

*■ same rank as / so left to right rule applies 

/ same rank as MOD 

+ higher rank than MOD 

MOD last operator to be performed 
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ARITHMETIC EXPRESSIONS 



Syntax -- 

<T, aexp> 
<aexp> 



<T, term> 



<T factor> 



<addop> 
<mulop> 



:= <aexp> | <addop> <aexp> 
:= <T term>| 

<aexp><addop><T term> 

: = <T factor>| 

<T term><mulop><T 3 factor> 

:= <T_ primary> | 

<T. factor>+<T. primary> 



<T primary> : := <number> | 



<T_ variable>| 

<T_ bit expr>| 

(<aexp>) |\<aexp>\| 

<T function designator | 

(<T, assignment statement>) 



!/|MOD 



Semantics — 



All occurrences of the symbol T must be replaced consistently with one 



of the following words: 



integer 

real 

long 

byte 

double 
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The symbol T. must be replaced with 

integer 

real 

long 

The following hierarchy holds for arithmetic operators: 

1. + 

2. *,/,MOD 

3. +,- 

Type mixing of operands is not allowed but type transfer functions may be 
used. The type of the operands will determine the type of the operation result 
and the type of operator used. Integer operations are used when the operands 
are of type byte. 

The notation \<aexp>\ specifies that the absolute value is to be taken. 



Examples 


— — 


INTEGER I,J,K; 


BYTE 


B1,B2; 


REAL 


X,Y; 


LONG 


A,B,C; 


DOUBLE D1,D2; 




J+K*I 




B1+B2 




D1/D2 




X*Y 




A-B*C 




I+Bl 




A-X 



integer operators are assumed 
integer operators are assumed 
error: no divide instruction exists for double 

operands 
real operators are assumed 
long real operators are assumed 
error: no type mixing allowed 
error: no type mixing allowed 
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LOGICAL EXPRESSIONS 



Syntax- - 
<lexp> 

<disjunction> 
<conjunction> 
<logical elem> 



<logical term> 
<logical factor> 

< logical primary> 



<relop> 
<logical mulop> 



:= <dis junction> | 

<lexp> OR <disjunction>| 

<integer aexp><= <integer aexp><= <integer aexp> 

:= <conjunction> | 

<dis junctions XOR <conjunction> 

= <logical elem> | 

<conjunction> AND <logical elem> 

= <logical term> | 

<logical term><relop><logical term> | 
<aexp> <re lop> <aexp> 

<byte ref><relop><byte ref><count><sdeca> | 
<byte ref><relop>* PB <count><sdeca> | 
<byte re£><relop><string><sdeca> | 
<byte ref><relop>(<listelmt>)<sdeca> | 
<Tw simpvar id> = <btestword>| 
<T^ simpvar id> <> <btestword> 

:= <logical £actor> | 

<logical termxlogical addopxlogical £actor> 

:= <logical primary>| 

<logical factorxlogical mulop> 
< logical primary > 

:= <number> |<logical value> | 
<logical variable> | 
<logical bit expr> | 
C<lexp>) | 

<logical function designator>| 
C<logical assignment statement>) | 
NOT < logical primary> 

:- > | < | = | <> | >= | <= 
:= * | ** |/ |// |MOD JMODD 



V.3.1 



<logical addop> 
<byte ref> 

<byte> 

<count> 

<btestword> 

<sdeca> 

<sdec> 

<indx> 



<byte pointer id><indx> | 
<byte array id><indx> | * 

<string>]{8 bit numbers} 

,(<expr>) 

ALPHA | NUMERIC | SPECIAL 

<empty> | ,<sdec> 

0|l|2 

<empty> | 

(<expr>) | 

(<assignment statement>) 



Semantics - 



The following hierarchy holds for logical operation. 

1. NOT 

2. * 5 **,/ 5 //,M0D, 

3. +,- 

4. =,>,<>,>=,<= 

5. AND 

6. XOR 

7. OR 



The significance of the operators **, //, and MODD i s the following: 
LOGICAL LI, L2, L3; ZER0 

L2/L3 LOAD L2 

LOAD L3 
LDIV,DEL 
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L1//L3 LDD LI 

LOAD L3 
LDIV.DEL 

L2 MOD L3 ZERO 

LOAD L2 
LOAD L3 
LDIV, DELB 

LI MODD L3 LDD LI 

LOAD L3 
LDIV,DELB 



The symbols // and MODD require that the most significant portion of the 
dividend has been loaded by the user if the dividend is the result of an inter- 
mediate calculation. 



L2 * L3 LOAD L2 

LOAD L3 
LMPY,DELB 

L2 ** L3 LOAD L2 

LOAD L3 
LMPY 



The symbol ** implies that a two word result is left in the stack. 

In general the result of a logical expression is left as a full word operand 
on top of the stack. An exception is when a relational operator is encountered 
in which case a value of 1 or is left on top of the stack depending on whether 
the relation is true or false respectively. A further exception is when the re- 
sult of a relational operator is used in a conditional statement in which case 
nothing is left in the stack and the status word is treated instead. 

For the production <logical elem> ::= <byte refxrelopxbyte ref> 
<countxsdeca> it is noted that the second <byte ref> may be DB or PB relative. 
The symbol T^ must be replaced as given on p. 1.2.2 
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Examples- - 



INTEGER K; 

BYTE ARRAY BA(0:15); 

BYTE POINTER BP; 

IF BA(3) = BP, (5), 1 THEN 
K ■*- 1 



IF BA <*, (6) THEN K^-fl 



IF * = BPC3),(3) THEN K «- 2 

NOTE: A * implies that 

an address has been 
loaded on the stack 



IF TOS=BPC3) THEN K -«- 2 

NOTE: "TOS" implies that 
a value has been 
loaded on the stack 



LDr 


3 


ADDM 


BA 


LOAD 


BP 


LDI 


5 


CMPB 


3 , 1 [SDEC, 1 


BNE 


* + 3 


LDI 


1 


STOR 


K 


LOAD 


BA 


XCH, NOP 


LDI 


6 


CMPB 


2,1 [SDEC,DB] 


BGE 


*+3 


ZERO, NOP 


STOR 


K 


LDI 


3 


ADDM 


BP 


LDI 


3 


CMPB 


3,1 [SDEC, DB] 


BNE 


* + 2 


LDI 


2 


STOR 


K 


LDXI 


3 


LDB 


BP,I,X 


CMP 




BNE 


* + 3 


LDI 


2 


STOR 


K 
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IF * <> * 

NOTE 



(-7), 2 THEN K «- 1 



A negative count implies 
that the comparison is 
made from vight to left 



IF BP(2) >BP(7),(1),1 THEN K^ 



IF BA(1) = "73A9", 1 THEN GO QUIT 
ELSE GO AGAIN 



IF BA < ("73A9", %100,1), 
THEN GO QUIT ELSE GO AGAIN 



LDNI 


7 


CMPB 


2,1 [SDEC.DB] 


BEQ 


* + 2 


LDI 


1 


STOR 


K 


LDI 


2 


ADDM 


BP 


LDI 


7 


ADDM 


BP 


LDI 


1 


CMPB 


1,1 [SDEC,DB] 


BLE 


* + 2 


ZERO, 


NOP 


STOR 


K 


LDI 


1 


ADDM 


BA 


LRA 


* + 5 


LSL 


1 


LDI 


4 


CMPB 


1,0 [SDEC,PB] 


BEQ 


AGAIN 


BR 


QUIT 


CON 


"73", "A9" 


LOAD 


BA 


LRA 


*+5 


LSL 


1 


LDI 


8 


CMPB 


0,0 [SDEC.PB] 


BL 


QUIT 


BR 


AGAIN 


CON 


"73", "A9" 


CON 


%40001 



The following examples demonstrate some constructs which are treated as special 
cases: 
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IF TOS = ALPHA THEN GO QUIT 



IF IVAR >= THEN GO QUIT 



IF TOS <0 THEN GO QUIT 



IF DVAR = 0D THEN GO QUIT 



IF TOS > 0D THEN GO QUIT 



BTST, DEL 
BE QUIT 

LOAD IVAR 
DEL, NOP 
BGE QUIT 

TEST, DEL 
BL QUIT 

LDD DVAR 
DTST,DDEL 
BEQ QUIT 

DTST, DDEL 
BG QUIT 



An instruction which allows for a range test for integer type expressions is 
implemented with the following construct: 

IF II + 2 <= 12 * 13 <= 14 
THEN GO QUIT 



NOTE: The syntax specifies that 
the only relational oper- 
ator allowed is a "<=" and 
the only operand type is 
integer. 



LOAD II 
ADD I 2 
LOAD 12 
MYPM 13 
ST AX 
LOAD 14 
CPRB QUIT 



IF NOT CH <= 12 <= 13) THEN II ■*- 1 



LOAD II 
LDX 12 
LOAD 13 
CPRB P+3 
LDI 1 
STOR II 



IF II <= 12 <= 13 THEN II *•! 
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LOAD II 
LDX 12 
LOAD 13 
CPRB P+2 
BR P+3 
LDI 1 
STOR II 



Syntax -- 



VARIABLES 



<T variable> 



<integer variable> 



<T simpvar id> | 

<T pointer id> <indx> | 

<T array id> <indx>| 

TOS 

@<T simpvar id> | 

§<T pointer id> <indx> 

@<T array id><indx> | 

ABSOLUTE C <ind ex>) 



<indx> 
<index> 

Semantics — 



:= <empty> | (<index>) 

:= <aexp>|<lexp>| 

<assignment statement> 



Throughout this manual whenever a reference is made to <indx> or <index> 
the type of the expression evaluated must be such that it can be contained 
in one word. i.e. integer, logical, or byte. 

All occurrences of the symbol T must be replaced consistently with one of 
the following words: 

integer 

logical 

byte 

real 

double 

long 
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For example, the syntax above specifies that the following productions are 
associated with <integer variable>: 

<integer variable> : := <integer simpvar id>|@<label id>|@<proc id> | 

<integer pointer id><indx>| 

<integer array id><indx>| 

@<integer pointer id><indx> | 

@<logical pointer id><indx> | 

@<byte pointer id><indx> | 

@<real pointer idxindx> | 

@<double pointer id><indx> | 

@<long pointer id><indx> | 

@<integer array id><indx> | 

@<logical array id><indx> | 

@<byte array id><indx> | 

@<real array id><indx> | 

§<double array id><indx> | 

§<long array id><indx> | 

@<integer simpvar id> | 

§<iogical simpvar id> | 

§<byte simpvar id>| 

@<real simpvar id> | 

@<double simpvar id> | 

@<long simpvar id> | 

ABSOLUTE (<aexp>) | 

ABSOLUTE (<lexp>) | 

ABSOLUTE ^assignment statement^-) I 
TOS 
The symbol @ specifies that the content of a pointer cell or the address of 

an array element is to be referenced. 

When the symbol TOS appears in an expression, its type is determined by the 
context. Care must be exercised in the use of TOS in as much as the compiler 
will not keep a record of the number of elements previously pushed onto the 
stack prior to encountering the symbol TOS. 
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TOS is a reserved symbol which may be used on the left side of an assignment 
statement or in an arithmetic expression or a logical expression. 

Used on the left side of an assignment statement no store instruction is gener- 
ated and the result of the right side is left as the top of the stack. 

If TOS occurs in an expression the contents of the top of the stack are used as an 
operand in the expression. The number of words used from the top of the stack depends 
on the type of the expression C3 for long, 1 for integer, 2 for real etc.)- These 
are not considered to be memory locations, i.e. there is no LOAD or DUP generated 
before the use of the operand, in contrast to variables which have been declared to 
have address S-0. 

The code for the following two statements is probably not what a user may expect. 

eg INTEGER I, J, R, X: 

TOS «- X ; LOAD X 

K *■ I + J + (R*TOS) ; LOAD I 

ADDM J 

MULM R 

ADD, NOP 

STOR K 

The use of ABSOLUTE generates the privileged instructions PLDA or PSTA 
depending upon whether the use appears in an expression or the left side 
of a replacement operator respectively. 

eg 

LOGICAL LI, L2, L3; INTEGER II, 12, 13 = X; 

LI - ABSOLUTE (II * 12) LOAD II 

MULM 12 
STAX.NOP 
PLDA 
STOR LI 
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ABSOLUTE (L2) + II + 5 



ABSOLUTE (13) •»- II + 5 

Note: 13 is the X register 

LI <- ABSOLUTE (ABSOLUTE (3)) 



LI «- ABSOLUTE (13) 



LOAD 


11 


ADDI 


5 


LDX 


L2 


PSTA 




LOAD 


11 


ADDI 


5 


PSTA 




LDXI 


3 


PLDA 




STAX, 


NOP 


PLDA 




STOR 


LI 


PLDA 




STOR 


LI 
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FUNCTION DESIGNATOR 



Syntax-- 

<T function designator> 

< actual par am part> 



<actual param> 

<reference param> 

<indx> 

<value param> 
<s tacked param> 



<T procedure idxactual param part> | 
<T subroutine idxactual param part> 

<empty> | 

(<actual param list>) | 
(<stacked param list>) | 
(<stacked param list>, 
<actual param list>) 

<reference param> | 
<value param> 

<T simpvar id> | 

<T array id> <indx> 

<empty> | (<expr>) j (<assignment statement>) 

<aexp> j <lexp> | <assignment statement> 



Semantics — 

The symbol T is to be replaced with 

integer 

logical 

byte 

real 

double 

long 
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A function designator causes a previously defined function , i.e. type- 
procedure or subroutine, to be executed. 

The function identifier references the function body which is to be 
executed. The <actual param part> contains a list of the actual parameters 
to be supplied to the function. A one- for- one correspondence must exist be- 
tween the actual parameter part and the formal parameters that appear in the 
formal parameter part of the PROCEDURE or SUBROUTINE declaration. This cor- 
respondence is one of position, where the position of the actual parameter 
in the function designator corresponds to the position of a formal parameter 
in the declaration. 

A general description of the operation of the function designator is 
as follows: 

A. If the actual parameter is not a<stacked param>, proceed to step B. 

If the actual param is a<stacked param>, it is assumed that the param- 
eter has been placed on the stack by the user prior to invoking the 
function designator. The user must also have allocated on the stack, 
immediately preceding the first <stacked param>, space for storing the 
value to be returned by the function. 

B. The formal parameters which are named in the VALUE part of the 

function declaration are assigned the values of the corresponding 
actual parameters . These parameters are then treated as local to the 
function body. 

C. The formal parameters not named in the VALUE part (call by reference) 
are replaced, whenever they appear in the function body, by the 
corresponding actual parameters. 

D. The function body, when modified as stated above, is then entered. 

NOTE: If no stacked parameters* are specified, storage will be allocated 
by the compiler for the function value. 
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If the function designator is a formal parameter, the actual parameter part 
11 be treated as if the formal parameter list for the function were all by 
reference. The number of actual parameters passed a formal function will not 
be checked. 



wi 
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SYNTAX 



BIT OPERATIONS 



<T bit expr> 



<Tvbit extraction> 
<bit extract field> 



<left extract bit> 
<extract field length> 
<T«bit concatenation> 

<bit cat £ield> 

<left deposit bit> 
<T bit shift> 

<shift op> 
<shift count> 



:= <T0bit extraction> | 
<T*bit concatenation> | 
<T bit shift> 

:= <Typrimary>. C<bit extract field>) 

:= <left extract bit>: 
<extract field length> 

= <unsigned integer> 

= unsigned integer from 1 thru 15 

= <T primary>CAT 

<T0primary>(<bit cat field>) 

:= <left deposit bit> : 
<bit extract field> 

:= <unsigned integer> 

:= <T primary>§ 

<shift op>(<shift count>) 

:= lsl|lsr|asl|asr|csl|csr|dasl|dasr|dlsl|dlsr| 

dcsl i dcsr i tasl i tasr i tnsl 

:= <aexp> 
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Semantics- 



The symbol T must be replaced with 

integer 

logical 

byte 

real 

double 

long 



and T_, must be replaced with 



integer 
logical 
byte 

In a bit extraction a contiguous bit field is extracted from the memory 
location of an operand. The result of the operation is a right-justified word 
of type integer with the leading bit set to zero. The maximum field that can be 
extracted in a single operation is 15 bits. 

Bit concatenation is used to construct a value from fields of the specified 
primaries. A bit field is first extracted from the rightmost primary and depos- 
ited at the specified position in the operand to the left of the CAT operator. 
The result is represented as a temporary quantity and the original operands are 
not altered. Bit concatenation is performed from left to right. 

NOTE: The shift operator's are context independent in the sense that types and 
sizes are ignored by the compiler so if a user performs a triple shift 
on a single word operand a triple shift operator is emitted. 
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Examples — 



INTEGER I, J, K, M, N; DOUBLE D; 
I. (5:3) 

(I + J) . (2:4) 

K . (8:9) 

I CAT J (3:4:5) 



D $ LSR (5) 
I § ASL (N+M) 



I & DASR (17) 



LOAD 


I 




EXF 


5:3 




LOAD 


I 




ADDM 


J 




EXF 


2:4 




LOAD 


K 


wrap around 


EXF 


8:9 


will occur 


LOAD 


I 




LOAD 


J 




EXF 


4:5 




DPF 


3:5 




LDD 


D 




LSR 


5 




LOAD 


I 




LOAD 


N 




ADDM 


M 




STAX,NOP 




ASL 


0,X 




LOAD 


I 




DASR 


17 
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VI . STATEMENTS 



STATEMENTS 



Syntax- 



<statement> : := <label id>: <statement>| 

<compound statement>| 
<assignraent statements | 
<IF statement> | 
<G0 statement>| 
<FOR statement>| 
<CASE statement>| 
<WHILE statement>| 
<D0 statement>| 
<MOVE statement>| 
<SCAN statement>| 
<ASSEMBLE statement> | 
<PROCEDURE call statement> | 
<EXTN call statement>| 
<SUBROUTINE call statement^ 
<RETURN statement>| 
<PUSH and SET statement | 

<DELETE statement>| 

<empty> 



VI. 1.1 



ASSEMBLE - STATEMENT 



Syntax — 

<assemble statements 
<instruction slist> 
<instruction> 

<opcode £ormat> 

<format-l> 

<sub memref op> 
<address part> 
<var id> 
<addr mode> 
<I-field> 
<X-field> 
< format- 2 > 

< format -3> 

<branch subopl> 

<nonbranch subopl> 
<argl> 

<format-4> 



= ASSEMBLE (^instruction slist>) 

= <instruction> | <instruction slist>; <instruction> 

= <label id> : <opcode format> | 
<opcode format> 

:= <format-l> | <format-2> | <format-3> | 
<format-4> | <format-5> | <format-6> | 
<format-7> | <format-8> | <format-9> | 

:= <memory ref opcodexaddress part><I-field> 
<X-field>| <sub memref opxlabel id> 

= {memory ref opcode except STOR, INCM, DECM, LDB, 

LDD, STB, STD} 
= <var id>|<addr mode><USI255> 

= <T simpvar id>|<T pointer id> | <T array id> 

= db+|q+|q-|p+|p-|s- 

= , I | <empty> 

= ,x|<empty> 

= <stack opcode> | 

<stack opcode> ,<stack opcode> 

:= <branch suboplxargl><I-field> | 
<nonbranch subopl><USI31><X-field> 

:= iabz|ixbz|dxbz|bcy|bncy|cprb|dabz|bov|/ 
bnov|bro|bre 

:= {any subopl other than <branch subopl>} 

:= <label id>|P <sign><USI31> | 
*<sign><USI31> 

:= <sub subop2><USI255>| 

EXF <USI>:<USI>|DPF <USI>:<USI> 
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<sub subop2> 
<format-5> 
< format- 6 > 
<K £ield> 
<format-7> 

<subop3> 
<format-8> 



<sub move op> 

<sadmode> 

<sdeca> 

<sdec> 

<ccf> 

<scan op> 

<format-9> 

<USI31> 
<USI255> 
<USI> 
<const> 



= {subopcode2 instr except move-ops, mini-ops, EXF,DPF} 

= <mini op> 

= <special op><K field> 

= {unsigned integer <16} 

= <subop3><USI255>| 

PCAL <procedure id>|SCAL <subroutine id> 

:= {subopcode3 instr except special ops} 

:= <sub move op><sadmode>| 

<sub move op><sadmode><sdec> | 

MVBW <ccf><sdeca> | 

<scan op>|<scan op><sdec> 

= MOVE | MVB | CMPB 

= <empty>|PB {PB rel source address} 

= <empty> | ,<sdec> 

= 1 1 1 2 

= a|n|s|an|as|ns|ans 
= scwjscu 

= CON <const list> | 
PBAR <entry id list> 

= {unsigned integer <32} 

'- {unsigned integer <256} 

= <unsigned integer> 

= <constant> | <label id> 



VI . 2 . 2 



Semantics-- 

The ASSEMBLE statement allows the user to generate code of his choice. 
Reference to the ALPHA instruction set will be required by the user. 

The compiler will not modify P relative displacements inside an 
ASSEMBLE statement. Consequently, an error condition will result if a 
P relative address field is out of range. It will be the responsibility 
of the user to specify an indirect address mode if, for example, an out 
of range <label id> is referenced. <format-9> must be used to generate 
an indirect address cell. CON <label id> will enter a P relative displace- 
ment, while PBAR <entry id> will enter the PB relative address of a 
multiple entry point. 

The ALPHA instruction set mnemonics are to be used as opcodes except 
for BCC (branch on condition code) . Mnemonics specifying the condition 
code test should be used instead, as defined below: 



BL -- Branch if CC=CCL 

BE -- Branch if CC=CCE 

BLE -- Branch if CC=CCL or CCE 

BG -- Branch if CC=CCG 

BNE -- Branch if CC=CCL or CCG 

BGE -- Branch if CC=CCG or CCE 



CCF=1 
CCF=2 
CCF=3 
CCF=4 
CCF=5 
CCF=6 



There are certain special subopcode instructions (e.g. SCAN, TNSL) 
which do not require an argument. These exceptions are not specified in 
the syntax and the compiler will accept both the omission of the argument 
as well as the general form specified in the syntax. (The argument will 
be ignored in these cases) . 



VI . 2 . 3 



EXAMPLE 

PROCEDURE OCTOUT CBUF,T,N); VALUE T,N; 

BYTE ARRAY BUF; 
LOGICAL T; 
INTEGER N; 
BEGIN «CONVERT N DIGITS OF T TO BUF IN OCTAL» 

LABEL LOOP; 
ASSEMBLE C 

LDX N; 

DECX, NOP; 

LOAD T; 
LOOP: DUP; 

ANDI 7; 

ADDI %60; 

STB BUF,I,X; 

LSR 3; 

DECX; 

BGE LOOP) ; 

Another way to write it is: 

PROCEDURE OCTOUT CBUF,T,N); VALUE T,N; 
BYTE ARRAY BUF; 
LOGICAL T; INTEGER N; 
BEGIN 

WHILE CN+-N-1) >= DO 
BEGIN 

BUF(N) <- CT AND 7) + %60; 
T*T5 LSRC3); 
END; 
END «OCTOUT»; 
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Example: <assemble statements 

ASSEMBLE CNOP, LDXA; LOAD DB+5,X; EXIT 4; CONT: ZERO, STAX) 

Example: <format-l> 

STB S-i;i,X ;• DECM I ; 

Example: <format-2> 

DDUP, DELB; 
STAX 

Example: <format-3> 

LSL 1; BRE QUIT ; 

Example: <format-4> 

LDI 255; ADDI 5; EXF 7:9; 

Example: <format-5> 

RSW; PLDA; LLSH; PSTA; 

Example: <format-6> 
XEQ 4; 

Example: <format-7> 

PCAL READ; SCAL LOOPER; ORI §377; 

Example: <format -8> 

SCW 1; MVBW 1, AN; CMPB PB, 1; 

Example; <format -9> 

CON "**********" • 
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ASSIGNMENT STATEMENT 



Syntax-- 

<assignment statement> 

<left part> 

<deposit field> 

<le£t deposit bit> 
<deposit field length> 
<right part> 



: := <left part> -«- <right part> | 

<left part> *• <assigment statement> 

: := <T variable> | 

<T variable>. (<deposit field>) 

: := <le£t deposit bit>: 

<deposit field length> 

: := <unsigned integer> 

: := {unsigned integer from 1 through 15} 

: := <expr> 



Semantics -- 

The assignment statement generates code for storing the value of <the right> 
part into the location specified by the <left part>. Type mixing between 
<left part> and <right part> is allowed if the number of words is the same. 
Type transfer functions must be used for type mixing otherwise. Note that type 
transfer functions must always be used for type mixing within an expression. 

A deposit field specifies a subfield in the bit field of a variable. The value 
of the <right part> is stored into this subfield. 
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Examples- 



ASSUME INTEGER 11,12; LOGICAL L1.L2; 
BYTE B1,B2; REAL R1,R2; 
LONG LNG1,LNG2; DOUBLE D1,D2; 
INTEGER J = S-l, K = S-0; 



II ■*■ II + 12; 



TOS ■*■ LI * L2; 



Rl +■ R2 + FLOAT (11} 



Rl -*- R2 + II 



Rl * II + 12 



TOS *■ TOS + 1 

TOS t- K + 1 

J *■ J + 1 

LNG1 *■ LNG2 * LNG1 

LI ■*• LI * 3 



LI + LI ** 3 



LOAD 


11 


ADDM 


:i2 


STOR 


n 


LOAD 


Ll 


LOAD 


L2 


LMPY 




LDD 


R2 


LOAD 


11 


FLT,FADD 


STD 


Rl 



error: no type mixing in 
expressions 



error : 



the number of words 
on the left and right 
sides of an assignment 
operator must be the same; 
in this context, type byte 
is considered as one word 



INCA 



DUP , INCA 
INCB 
special case: 



LOAD Ll 
LDI 3 

LMPY, DELB 
STOR Ll 

LOAD Ll 
LDI 3 

LMPY, NOP 
STOR Ll 



routines will handle 
all long operations. 
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CASE - STATEMENT 



Syntax — 

<CASE statements 

<case body> 
Semantics-- 



::= CASE <aexp> OF <case body> | 
CASE *<aexp> OF <case body> 

: := <compound statement> 



The first statement in the case body has index zero. 

If the index of a CASE - statement falls outside the list of statements 
in the case body, the <empty> statement is executed. The presence of an 
asterisk in a case statement means that no test will be made for an out of 
bounds condition 



Example-- 




Assume 


INTEGER I,N; 




SOURCE CODE: 


CASE I 


OF 


BEGIN 




N •*- 3; 




N ■*- 5; 




N «- 2; 





END 



INSTRUCTIONS: 



LOAD 


I 


LDI 


4 


STBX 


,LCMP 


BL 


*+ll 


BR 


*+15 


LDI 


3 


STOR N 


BR 


*+12 


LDI 


5 


STOR N 


BR 


*+9 


LDI 


2 


•STOR N 


BR 


*+6 


BR 


*+l,X 


BR 


*-10 


BR 


*+3 


BR 


*-9 


BR 


*-7 
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DELETE STATENENT 
Syntax- 
delete statement> : := DELJ 

DELS | 

DDEL 

Semantics — 

The delete statement generates the operators DEL, DELB, and DDEL 
corresponding to the above syntax. The correspondence is one-to-one. 
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DO STATEMENT 



Syntax- - 

<D0 statement> 



: := DO <statement> UNTIL <cond clause> 



Semantics- - 

The boolean value of <cond clause> is determined after each execution of 
<statement>. The statement is executed as long as <cond clause> is false. 
<cond clause> is defined under IF statement. 

Example-- 

Assume INTEGER I; ARRAY A (0:19); 



SOURCE CODE: 

DO BEGIN I + 1-1; A(I)«-2 END 
UNTIL I > 3; 



INSTRUCTIONS: 

DECM I 

LDI 2 

LDX I 

STOR A,I,X 

LOAD I 

CMPI 3 

BLE *-6 
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EXTERNAL CALL STATEMENT 



Syntax- 



external call statement> 
<external number> 
<external param part> 

<external param> 
<FN> 

<RSECT> 

<WDL> 

<count> 



= EXTN (<external numberxexternal param part>) 

<unsigned integer> 

= , <external param list> | 
<empty> 

::= <FN>|<Rsect>|<WDL>|<COUNT> 

: := <string>{max of 4}|<logical id>| 
< logical array id> 

= <aexp> {logical record number in file=RSECT=0,l,--N} 

= <identi£ier> | <identif±er> (<index>.) 

= <unsigned integer>|<sign><unsigned integer> 



Sematics-- 

The external call statement is used to invoke special system routines. The 
external number specifies which routine is to be called. These routines are cur- 
rently defined to perform a function specified by the ALPHA breadboard and simulators. 
The following list defines all currently available system routines: 



FUNCTION 

READ CARD 
PRINT LINE 
READ TTY 



CALLING SEQUENCE 

EXTN Cl, <WDL>) 
EXTN (2, <WDL>) 
EXTN (3, <Count>,<WDL>) 



WORDS TRANSMITTED 

40 
66 
36* 
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FUNCTION 



CALLING SEQUENCE 



WORDS TRANSMITTED 



WRITE TTY 
READ DISC (SERIAL) 
WRITE DISC (SERIAL) 
CLOSE DISC 
END SIMULATION 
READ DISC (RANDOM) 
WRITE DISC (RANDOM) 
WRITE TTY 

(1 character) 
From right byte of word 
READ TAPE 
WRITE TAPE 
REWIND TAPE 



EXTN (4, <WDL>) 

EXTN (5, <FN>,<WDL>) 

EXTN (6, <FN>,<WDL>) 

EXTN (7, <FN>) 

EXTN (8) 

EXTN (9, <RSECT>,<FN>,<WDL>) 

EXTN (10, <RSECT>,<FN>,<WDL>) 

EXTN (11, <WDL>) 



EXTN (12, <WDL>) 
EXTN (13, <WDL>) 
EXTN (14) 



36** 
128 
128 



128 
128 
1/2 



128 
128 



** Transmit until carriage return is found in buffer or 36 words. 
Rewind will write EOF on tape if previous mode was write. 

If <FN>= "TAPE" for a read, write or close disk serial, an identical action 
will be taken as in read, write, and rewind tape. 

* If <count> = 0, read TTY for up to 36 words or carriage return. 



NOTE: WDL implies word data label 
FN implies file name 

RSECT implies random disk segment number 
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FOR - STATEMENT 



Syntax- - 

<FOR statements 
<FOR clause> 

<for element> 

<STEP clause> 
<UNTIL clause> 



::= <FOR clause><statement> 

::= FOR <integer id> +■ <for element> DO| 
FOR * <integer id> -*- <for element> DO 

: := <aexp><STEP clause><UNTIL clause> | 
<aexp> 

::= <empty>| STEP <aexp> 

: := UNTIL <aexp> 



Semantics-- 

An asterisk in the <FOR clause> specifies that the subsequent <statement> 
is to be executed once before incrementing and testing the loop variable 
against the limit. 

The <STEP clause> specifies the increment (or decrement) to be added to 
the loop variable. An empty <STEP clause> implicitly specifies an increment 
of 1. The value of the increment and limit will be determined only initially. 

The FOR statement will be executed until the limit is exceeded. 
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Examples -- 

Assume INTEGER I, XREG = X, LIM 



SOURCE CODE: 

FOR I «- 3 UNTIL LIM DO 
A (I) «- I * 2; 



FOR I «- 3 STEP 2 UNTIL 8 DO 

A (I) - 2; 



FOR XREG -s- I STEP -2 UNTIL LIM DO 
A (XREG) ■*- I; 



FOR XREG <- 1 STEP -I UNTIL LIM DO 
A (XREG) ■*- A(I); 



(Note that this is bad code because A (I) will 
destroy the value of the loop variable) . 



INSTRUCTIONS : 


LDI 


3 


STOR 


I 


LRA 


I 


LDI 


1 


LOAD 


LIM 


TBA 


*+2 


BR 


*+6 


LOAD 


I 


MPYI 


2 


LDX 


I 


STOR 


A,I,X 


MTBA 


*_4 


LDI 


3 


STOR 


I 


LRA 


I 


LDI 


2 


LDI 


8 


TBA 


*+2 


BR 


*+5 


LDI 


2 


LDX 


I 


STOR 


A.I.X 


MTBA 


*-3 


LDX 


I 


LDNI 


2 


LOAD 


LIM 


TBX 


*+2 


BR 


*+4 


LOAD 


I 


STOR 


A,I,X 


MTBX 


*_ 2 


LDXI 


1 


LOAD 


I 


NEG, 


NOP 


LOAD 


LIM 


TBX 


*+2 


BR 


*+5 


LDX 


I 


LOAD 


A,I,X 


STOR 


A,I,X 


MTBX 


*-3 
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Syntax-- 



GO - STATEMENT 



<G0 statement> 



< label re£> 



<index> 



:= GO <label ref> | 
GOTO <label re£> [ 
GO TO <label re£> 

:= <label id> | 

<switch id> (<index>) | 
* <switch id>(<index>) 



;aexp~ 



^lexp; 



<assignment statement> 



Semantics-- 

The GO - statement will execute an unconditional branch to the location 
specified by the label. If the label reference is a switch id, a branch to the 
location specified by the label in the indexed position will be executed. . The 
first label has index zero. If the index falls outside the range of the switch 
declaration, control will be transferred to the next sequential statement follow- 
ing the GO statement. The occurrence of an asterisk in a GO statement specifies 
no bounds checking will be made. 

Branches to labels outside of a procedure may be accomplished only by passing 
a label as a parameter to that procedure. A label which is a formal parameter may 
in turn be used as an actual parameter to another procedure. 

Branches from subroutines may be made but it is the users responsibility for 
the integrity of the stack as the compiler takes no action to modify the stack. Of 
course the branches can only be made into the procedure in which the subroutine is 
declared or the outer block if the subroutine is global. 
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CALL TO PROCEDURE 



LABEL AS ACT1 
n 


JAL PARAMETER 

D^ LOCAL y> J. 


es 


I 


4- 


LOAD AP 
FOR LABEL 


LDD*(Q-n) 




■ 




4- 




• 


NEXT : 
PARAMETER 


A 


PUSH S 


<J 


ADDI 


A 



(A corresponds to the integer such that when added to S, the sum is 
equivalent to Q upon entry to the procedure) 



BRANCH FROM PROCEDURE 



LDD (Q-n) 


•I 




set Q 


i 


STOR Q-2 




I 




EXIT 
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Example -- 

Source Code: 

BEGIN 

INTEGER I; 



Instructions: 



Comment: 



SWITCH SW f- LI, L2; 
GO * SW(I); 



LDX I 



LI: I ■*- I + 1; 
GO SW (1-1); 



L2: 



FIN: 
END: 



IF I > 3 THEN 

GO FIN 
ELSE GO LI; 



BR *+12 

INCM I 

LOAD I 
SUBI 1 
LDI 2 
STBX, LCMP 
BL *+6 

LOAD I 
CMPI 3 
BG *+2 
BR *-9 

EXIT 

BR *+l,X 

BR *- 12 

BR *-7 



no bounds checking 



# of labels in switch 
bounds checking 



Branch to Ll 
Branch to L2 
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IF - STATEMENT 



<IF statements 
<cond clause> 

<cond elem> 

<cond term> 

<branch word> 



<THEN part> 
<ELSE part> 



::= IF <cond clausexTHEN partxELSE part> 

: := <cond elem> | 

<cond clause> BOR <cond elem> 

: : = <cond term> | 

<cond elem> BAND <cond term> 

: := <branch word> | 

<lexp>| (<lexp >BOR < lexp>) 

::= CARRY | NOCARRY | 

OVERFLOW | NOVERFLOW | 

IABZ | DABZ | 

IXBZ | DXBZ |<relop> 

::= THEN <statement> 

: := <erapty> | 

ELSE <statement> 



Semantics-- 

IF - statements allow for the conditional execution of statements. The condition 
is specified in <cond clause> which is evaluated as true or false. If the condi- 
tion is true, the statement following the <cond clause> is executed. Otherwise, 
the <ELSE part> is executed. 

In nested IF - statements, correspondence between the delimiters THEN and ELSE is 
obtained by pairing the innermost THEN with the closest following ELSE and proceed- 
ing outward. 

A machine- dependent condition may be specified in the <cond clause> by using a 
<branch word>. The specified condition is evaluated during execution and the 
<statement> following the <cond clause> is executed if the condition is true. 
Otherwise, a branch occurs to the <ELSE part>. The branch words are described 
below: 
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<branch lexp> 



Action 



CARRY 
NOCARRY 
OVERFLOW 
NOVERFLOW 

< 

<= 

> 

<> 

>= 

IABZ 

DABZ 

IXBZ 

DXBZ 

Examples- - 



Execute <THEN part> if carry bit on 
" " if carry bit off 
" " if overflow bit on 
" " if overflow bit off 
" " if condition code = 1 
" " if condition code = 2 
" " if condition code = 1 or 2 
" " if condition code = 
" " if condition code = or 1 
" ,? if condition code = or 2 
Increment TOS. Execute <THEN part> if TOS zero 
Decrement TOS. Execute <THEN part> if TOS zero 
Increment X reg. Execute <THEN part> if X reg zero 
Decrement X reg. Execute <THEN part> if X reg zero 



Assume INTEGER I; LOGICAL T; LABEL QUIT; 

SOURCE CODE: INSTRUCTIONS GENERATED: 

IF T > 3 THEN I «- 21 



IF LOGICAL (I) THEN 
T +- 2 ELSE GO QUIT; 



IF T THEN GO QUIT; 

IF I = 5 THEN IF T < 2 

THEN I «- 3 ELSE GO QUIT; 



LOAD 


T 


LDI 


3 


LCMP 




BLE 


* + 3 


LDI 


2 


STOR 


I 


LOAD 


I 


BRE 


QUIT 


LDI 


2 


STOR 


T 


LOAD 


T 


BRO 


QUIT 


LOAD 


I 


CMPI 


5 


BNE 


* + 6 


LOAD 


T 


LDI 


2 


LCMP 




BGE 


QUIT 


LDI 


3 


STOR 


I 
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Examples (Cont.)-- 

SOURCE CODE: 
IF T THEN I <- 2 ELSE I * T; 



IF I = 5 THEN IF T <2 
THEN I * 3 ELSE I * 2 

J J 

ELSE I * T; 



IF TOS THEN 1*1 ELSE GO QUIT; 



IF NOT TOS THEN TOS * 1 ELSE 1*1; 



IF = THEN I * 1 ELSE T * 3; 



IF IABZ THEN GO QUIT 

IF DXBZ THEN T * 3 ELSE TOS * 2; 



IF 3 <= I <= 10 THEN GO QUIT; 



INSTRUCTIONS GENERATED: 
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LOAD 


T 


BRE 


*+4 


LDI 


2 


STOR 


I 


BR 


*+3 


LOAD 


T 


STOR 


I 


LOAD 


I 


CMP I 


5 


BNE 


*+10 


LOAD 


T 


LDI 


2 


LCMP 




BGE 


*+4 


LDI 


3 


STOR 


I 


BR 


*+3 


LDI 


2 


STOR 


I 


BR 


*+3 


LOAD 


T 


STOR 


I 


BRE QUIT 


LDI 


1 


STOR 


I 


BRO 


*+3 


LDI 


1 


BR 


*+3 


LDI 


1 


STOR 


I 


BNE 


*+4 


LDI 


1 


STOR 


I 


BR 


*+3 


LDI 


3 


STOR 


T 


IABZ 


QUIT 


DXBZ 


*+2 


BR 


*+4 


LDI 


3 


STOR 


T 


BR 


*+2 


LDI 


2 


LDI 


3 


LDX 


I 


LDI 


10 


CPRB 


QUIT 



MOVE STATEMENT 



Syntax-- 

<MOVE statement> 

<MOVE stmt> 



<T dest ref> 
<T pointarr > 



<count> 
<sadmode> 
<byte ref> 
<MOVE- WHILE stmt> 



= <MOVE stmt> <sdeca>| 

<MOVE-WHILE stmt> <sdeca> 

= MOVE <T dest ref> ■*■ <T„ pointarr> <count> 

MOVE <T pointarr> <- * <sadmode> <count> | 

MOVE <T„ pointarr> ■*- <string> I 

MOVE <T 2 dest re£> •*- (listelmt) | 

MOVE <byte re£> -*- <byte pointarr> <count> j 

MOVE <byte ref> -*- * <sadmode> <count> j 

MOVE <byte ref> •*- <string> 

MOVE <byte pointarr> <• <niomber list> 

= <T_ pointarr> | * 

: <T pointer id> <indx> | 
<T array id> <indx> 

, (<expr>) 

■■ <empty> | PB {PB rel source address} 

: <byte pointarr> | * 

: MOVE <byte re£> ■+- <byte ref> WHILE <cc£> 



<cc£ > 

<sdeca> 

<sdec> 



a|n|s|an|as|ns|ans 

<empty>| ,<sdec> 
0|1|2 
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Semantics-- 

The symbols T and T ? must be replaced as given on p. I. 2. 2. 

An asterisk specifies that the stack has been loaded with the appropriate 
address. 

The <ccf> values are: N = numeric 

A = alphabetic 
S = upshift 

Any combination of ccf values is allowable. 

The entity <sdeca> specifies by how much the stack is to be decremented 
at the end of the move instruction. The default value is to restore the stack 
to its setting before the MOVE statement. Thus an empty <sdeca> implicitly 
specifies that the stack is decremented by 3 after a <MOVE stmt> and by 2 
after a <MOVE-WHILE stmt>. 

The source address in a MOVE or MVB instruction may be DB or PB relative. 
The destination address can only be DB relative. It is noted that only local 
arrays can be PB relative. 
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Examples- 



Assume INTEGER I, K; 

INTEGER ARRAY I AY (0 
LOGICAL ARRAY LAY (0 
BYTE ARRAY BAY (0 
INTEGER POINTER IP 
LOGICAL POINTER LP 
BYTE POINTER BP 



10); 

10); 

10), BAYPB (*) 



PB + "STRING" 



SOURCE CODE: 
MOVE IAY (0) «- IAY (1),(5); 



MOVE IAY (K) «- LAY (1*3) , (K+l) ; 



MOVE LP «- IP, (K), 1; 



MOVE BP ^ * WHILE ANS; 



MOVE BAY (2) «- BAYPB (1), (4), 2; 



INSTRUCTIONS : 


LDXI 





LRA 


IAY,I,X 


LDXI 


1 


LRA 


IAY,I,X 


LDI 


5 


MOVE 


3 


LDX 


K 


LRA 


IAY,I,X 


LOAD 


I 


MPYI 


3 


STAX, 


NOP 


LRA 


LAY,I,X 


LOAD 


K 


ADDI 


1 


MOVE 


3. 


LOAD 


LP 


LOAD 


IP 


LOAD 


K 


MOVE 


1 


LOAD 


BP 


XCH,NOP 


MVBW 


2,7 [SDEC,CCF] 


LDXI 


2 


LRA 


BAY,I,X 


LRA 


BAYPB 


LSL 


1 


ADDI 


1 


LDI 


4 


MVB 


PB,2 
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PROCEDURE CALL STATEMENT 
Syntax-- 

procedure call statements : := <procedure id> <actual param part> 



Semantics-- 

A procedure call statement causes a previously defined procedure to be 
executed. 



The procedure identifier references the procedure body which is to be execu- 
ted. The <actual param part> contains a list of the actual parameters to be 
supplied to the procedure. A one-for-one correspondence must exist between the 
actual parameter part and the formal parameters which appear in the formal par- 
ameter part of the procedure declaration. This correspondence is one of position, 
where the position of the actual parameter given in the procedure call statement 
corresponds to the position of a formal parameter in the PROCEDURE declaration. 

A general description of the operation of the procedure call statement is 
as f o 1 1 ows : 

A. If the actual parameter is not a stacked param, proceed to step B. If 
the actual param is a stacked param, it is assumed that the parameter 
has been placed on the stack by the user prior to invoking the procedure 
call statement. 

B. The formal parameters which are named in the VALUE part of the pro- 
cedure declaration are assigned the values of the corresponding actual 
parameters. These parameters are then treated as local to the procedure 
body. 

C. The formal parameters not named in the VALUE part {call by reference} 
are replaced, whenever they appear in the procedure body, by the cor- 
responding actual parameters. 
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D. The procedure body, when modified as started above, is then entered. 

NOTE: If the procedure called is a function designator, the function 
value space is deleted following the call. 

If the procedure identifier is a formal parameter, the actual parameter 
part will be treated as if the formal parameter list for the procedure were 
all by reference. The number of actual parameters passed a formal procedure 
will not be checked. 



Examples 

SPAN (*,A(20), 1.325) 

CALCULATE 

SINF (ARG) 
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PUSH and SET STATEMENT 



Syntax- - 

<push registers> 
<set registers> 
<register spec> 



PUSH (<register spec list>) 
SET [register spec list>) 
S | Q | X | STATUS | Z | DL | DB 



Semantics -- 

These statements specify a push or set of the registers as defined by the 
instructions PSHR and SETR in the ALPHA 1 EXTERNAL REFERENCE SPECIFICATIONS . 
The register spec list specifies which registers will be selected. The push 
registers statement will generate code to push the contents of the specified 
registers onto the stack as defined by the instruction PSHR. The set registers 
statement will generate code to pop values from the stack into the selected 
registers as defined by the instruction SETR. Note that SETR, hence set regis- 
ters, requires privileged mode when registers STATUS, DB, DL, or Z are 
specified. The user must have loaded the stack with values prior to perform- 
ing a set registers statement. The compiler assumes the user has loaded the 
proper values in the proper sequence. 

Note: The Alpha breadboard and simulators use an outdated register specifi- 
cation sequence (old version of SETR and PSHR instructions in ALPHA 
ERS). This sequence is: <register speo : := S |q| z| STATUS |.Z| MASK JX 



Examples -- 










PUSH (S,Q,Z); 


emits 


PSHR %23 




SET (S,0J; 


emits 


SETR 3 
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RETURN - STATEMENT 



Syntax- - 

<return statement> 
<count> 



RETURN <count> 

<unsigned integer> 
<empty> 



Semantics-- 

The return statement is used to generate an EXIT in the body of a procedure 
or an SXIT if in the body of a subroutine. The count field specifies the amount 
by which the stack will be decremented. An empty count field specifies use of 
a decrement value corresponding to the number of words required in the formal 
parameter part. 



Example- 



PROCEDURE P(A,B); VALUE A; DOUBLE A; INTEGER I; 
BEGIN 



RETURN 


1; — 


EXIT 1 


RETURN 





EXIT 3 



VI. 14.1 



SCAN STATEMENT 



Syntax- - 

<SCAN statement> 

<S CAN -WHILE stmt> 
<byte ref> 



:= <SCAN-WHILE stmt><sdeca> | 
<SCAN-UNTIL stmt><sdeca> 

:= SCAN <byte ref> WHILE <testword> 

:= <byte pointer id><indx> | 
<byte array id><indx> 



<testword> 

<SCAN-UNTIL stmt> 

<sdeca> 

<sdec> 



<T simpvar id> | <integer> | 
"<char><char>" 

SCAN <byte re£> UNTIL <testword> 

<empty>| ,<sdec> 

0|l|2 



Semantics- - 

The symbol T is to be replaced by: 

integer 
logical 

The symbol * indicates that the stack has been loaded with the appropriate 
address. 

An empty <sdeca> implicitly specifies that the stack is to be decremented by 
2 at the end of the scan instruction. 



VI. 15.1 



Examples- 
Assume BYTE ARRAY BAY (0:10); 
INTEGER I; 

SOURCE CODE: 
SCAN * WHILE I; 

SCAN BAY (2) UNTIL I; 



INSTRUCTIONS: 


LOAD 

sew 


I 

2 [SDEC] 


LDXI 
LRA 
LOAD 
SCU 


2 
BAY.I.X 

I 

2 [SDEC] 



VI . 15 . 2 



SUBROUTINE CALL STATEMENT 



Syntax- - 



subroutine call statement> : := <subroutine idxactual param part> 



Semantics - 



A subroutine call statement causes a previously defined subroutine to be 
executed. 

When a subroutine is called, the Q-register remains unchanged. Thus, a 
subroutine body can contain non-local references to variables declared within 
the scope of the procedure in which the subroutine is declared. These variables, 
of course, must have been declared prior to the subroutine declaration. 

In other respects, the operation of the subroutine call statement is the 
same as the operation of the procedure call statement. 
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WHILE - STATEMENT 

Syntax- - 

<WHILE statement> : := WHILE <cond clause> DO <statement> 

Semantics -- 

The boolean value (true or false) of the <cond clause> is determined 
before each execution of <statement>. The statement will be executed as 
long as <cond clause> is true. <cond clause> is defined under IF statement. 

Examples — 

Assume INTEGER I; ARRAY A (0:10); 



SOURCE CODE: 

WHILE I > 3 DO 
BEGIN 

I *■ 1-1; 

A(I) <- 2 
END; 



INSTRUCTIONS : 


LOAD 


I 


CMP I 


3 


BLE 


*+6 


DECM 


I 


LDI 


2 


LDX 


I 


STOR 


A,I,X 


BR 


*-7 
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VII. APPENDIX 



TYPE TRANSFER FUNCTIONS 



Syntax- - 

<type-transfer function designator> 



:= FIXT C<R>) I 
FIXR (<R>) | 
BYTE (<L>)| 
BYTE (<I>) | 

REAL (<I>)|REAL (<D>) | 
REAL (<LNG>) | 

DOUBLE (<I>)|DOUBLE C<L>)|D0UBLE (<B>) | 
LONG C<R>) I LONG (<D>) | 

INTEGER (<L>) | INTEGER C<B>) | INTEGER (<D>) 
LOGICAL (<I>) I LOGICAL (<B>) 



<I> 
<R> 
<L> 
<B> 
<D> 
<LNG> 



= expression o£ type integer 

= expression of type real 

= expression of type logical 

= expression of type byte 

= expression of type double 

= expression of type long 
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Semantics-- 

Since type mixing in expressions will result in a syntax error, it is 
necessary to use type transfer functions if any mixed expressions are to be 
evaluated. Careful attention to variable type will be essential. Type trans- 
fer functions will be required to produce homogeneity within expressions. 
The available type transfer functions are the following: 

BYTE (I or L) treat integer or logical argument as type byte 

FIXT (R) fix and truncate a real argument leaving a double result 

FIXR (R) fix and round a real argument leaving a double result 

REAL (I or D or LNG) convert integer, double or long argument to type real 

INTEGER (L or B or D) treat logical or byte as integer at compile time or 

convert a double argument to type integer 

LOGICAL (I or B or D) treat integer or byte or double argument as logical 

at compile time 

DOUBLE (I or B) convert single word to double 

DOUBLE (L) no code emitted 

LONG (R or D) convert a real argument to type long or a double argument 
to type long 

Examples- - 

ARRAYX CINTEGERCFIXT (R1+R2) ) ) 

REAL(DOUBL) 

INTEGER (BYT) +2 

INTEGER(Ll+2) 

LOGICAL (I *J) 

INTEGER(A>B) 

INTEGER (TRUE) 

BYTE (1+ J) 
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RESERVED SYMBOLS 



The following list of symbols is reserved for compiler use, and may 
not be used to name an identifier: 



ALPHA 


END 


LOGICAL 


SINGLE 


AND 


ENTRY 


LONG 


SPECIAL 


ABSOLUTE 


EQUATE 


MOD 


STEP 


ARRAY 


EXTN 


MODD 


SUBROUTINE 


BEGIN 


FALSE 


MOVE 


SWITCH 


BYTE 


FIXR 


NOT 


THEN 


CARRY 


FIXT 


NUMERIC 


TO 


CAT 


FOR 


OPTION 


TOS 


COMMENT 


FORWARD 


OR 


TRUE 


DABZ 


GO 


OVERFLOW 


UNCALLABLE 


DDEL 


GOTO 


POINTER 


UNTIL 


DEFINE 


IABZ 


PROCEDURE 


VALUE 


DEL 


IF 


PUSH 


WHILE 


DELB 


INTEGER 


■ REAL 


WITH 


DOUBLE 


INTERRUPT 


RETURN 


XOR 


DXBZ 


IXBZ 


SCAN 


INTRINSIC 


ELSE 


LABEL 


SET 


BOR 


BAND 








The following 


list of syn 


ibols are used t 


:o specify ree 



specify register references. 



DB 



PB 
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Error # Meaning 

[decimal) 

Overflow: integer representation > 32 bits 

1 Overflow: Double or real representation > 32 bits: 

Composite or based number. 

2 Illegal integer representation. 

3 Non- integral result. 

4 Number base 2 > N > 16. 

5 Missing or incorrectly places "]" in a based number 

representation. 

6 Missing "/" in composite integer. 

7 Missing "]" in composite integer. 

8 Conversion error: real or long. 

9 ASCII conversion field size error. 

10 Expects integer type. 

11 Missing ":" in bounds specification. 

12 Missing exponent in read or long number. 

13 Erect label identifier. 

14 Illegal assemble form. 

15 Illegal identifier in specification part. 

16 Illegal PB rel array dec. restricted to local one only. 

17 Illegal result in address calculation. 

18 PB relative arrays are restricted to type 

BYTE, LOGICAL, or INTEGER. 

19 Illegal direct array specification can only be DB/O. 

20 Illegal mode/level combination. DB must be used with 
global arrays; Q with local arrays. 

21 Illegal DB allocation. 

22 PB relative arrays must be statically initialized. 
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Error # Meaning 

(decimal) 

23 Illegal initialization element. 

24 Bounds must be undefined "*" when reference is specified. 

25 Only global or PB relative arrays may be statically 

initialized. 

26 Illegal equate element. 

27 Identifier match failure - actual parameter part. 

28 Illegal address in initialization list. 

29 Multiply defined forward declaration. 

30 Declarations not allowed in subroutine body. 

31 No parameters allowed in interrupt procedures. 

32 Illegal nested procedure declaration. Restricted to ex- 

ternal procedures only. 

33 Illegal attribute. 

34 Illegal formal parameter: subroutines are not defined in 

formal parameter definition. 

35 Missing specification for formal parameter. 

36 Dynamic bounds not allowed for global arrays. 

37 DB relative counter >255. 

38 Q+ relative counter >127. 

39 Missing ")" 

40 Missing "(". 

41 Illegal reference parameter. 

42 Expected a procedure identifier. 

43 Illegal statement terminator. {BEGIN}. 

44 Illegal statement terminator. 

45 Missing ":" 

46 Undeclared identifier. 

47 Illegal opcode mnemonic. 

48 Expected constant or procedure ID. 

49 Illegal statement beginner. 

50 Missing ":" in extract or deposit field specification. 

51 Actual and formal parameter lists do not match in length. 
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Error # Meaning 

(decimal) 

52 Value size stack error. 

53 Type procedure required when called from expression. 

54 Expect an entry identifier. 

55 Too many formal parameters: 0<FP<31 

56 (0:<simpvar id>) only allowed. 

57 No dynamic lower bound allowed this version. 

58 PB - relative array used as actual parameter of reference. 

59 Illegal register reference: displacement exceeds maximum for 
specified register and mode. 

60 Illegal register reference: X=j= <unsigned integer> not valid. 

61 Displacement out of range for specified register and mode. 

62 Illegal specification for interrupt attribute. 

63 Illegal declarator ordering or too many declarators. 
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ASPL1 
ERROR # 

64 

65 Phase 2. Auxtab Overflow. 

66 Phase 2. 

67 Emit illegal mem- reference instruction 

68 Illegal IF stmnt. 

69 Illegal GO stmnt. 

70 Illegal Switch. 

71 Illegal WHOLE stmnt. 

72 Illegal Variable reference in MOVE-or-SCAN stmnt. 

73 Illegal MOVE stmnt. 

74 Illegal MOVE (MOVE - WHO LE ) . 

75 "Illegal "SCAN" stmnt. 

76 Phase 2. 

77 Phase 2. 

78 Phase 2. 

79 Phase 2. 

80 Phase 2. Referenced undeclared label. 

81 Phase 2. (Phase check). 

82 Phase 3. 

83 Phase 5. 

84 Phase 5. 

85 Illegal MOVE stmnt. 
86 

87 Illegal Conditional Clause. 

88 Illegal FOR stmnt. 

89 Illegal CASE stmnt. 

98 Illegal external number. 

99 Reserved symbols may not be redefined. 
100 Multiply defined identifier. 



VI I. 4. 4 



ASP LI 
ERROR # 

129 Illegal type. 

130 Error in partial word designator. 

131 Invalid index. 

132 Error in shift designator. 

133 Type incompatibility in expression. 

134 Store into type procedure identifier out of scope. 

135 Error in catenate operator. 

140 Error in type transfer function. 

141 Error in fix instruction or absolute value. 
144 Error in emitting memory operator. 

147 Illegal operator. 

150 Type incompatibility. 

152 Illegal long operator. 

160 Illegal class for variable. 

161 Illegal type for variable. 

162 Size incompatibility in assignment. 

163 Expects assignment operator. 

165 Wrong type stored into X register. 

166 Extract field from illegal type. 

170 Illegal primary. 

171 Expects left paren in expression. 

172 Missing right paren in expression. 

173 Illegal constant. 

174 Expects right paren in type transfer. 

175 Expects asterisk. 

176 Expects relational or comma. 

182 Missing left paren in count for byte compare. 

183 Missing right paren in count for byte compare. 

184 Expects constant for sdec field. 

185 Constant too large in sdec field. 

200 Recursive define. 

201 MAX STRING LENGTH EXECUTED. 

202 Illegal list separator or terminator. 
205 SYMBOL TABLE OVERFLOW. 

999 Built in loop in define invention terminated. 

VII, 4. 5 
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